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ABSTRACT 


A computer program is described in detail for laminar, 
transitional and/or turbulent boundary -layer flows of non- 
reacting (perfect gas) and reacting gas mixtures in chemical 
equilibrium. An implicit finite-difference scheme is developed 
for both two-dimensional and axisymmetric flows over bodies 
and in rocket nozzles and hypervelocity wind tunnel nozzles . 

This report provides those interested in the computer 
program with a description of the program, description of 
the program subroutines, and variables, and description of 
input and output data. Also included in the report is 
the output from a sample calculation of fully developed 
turbulent, perfect gas flow over a flat plate. Input data 
coding forms and a Fortran source listing- of the program 
are included. Further, the report includes a description 
of the method for obtaining thermodynamic and transport pro- 
perty data which are required to perform boundary- layer cal- 
culations for reacting gases in chemical equilibrium. 
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INTRODUCTION 


The purpose of this report is to provide the user of 
Computer Program LTBLCEQL with the necessary information 
to utilize the program as a research tool in boundary layer 
flow problems, The section "Description of Program LTBLCEQL" 
is basic to any use of the program .as the various capabilities 
of the program are described in that section. Further, the 
sections "Description of Input Data" and "Description of Out- 
put" provide the user with necessary information. 

For applications in which only the perfect gas model 
is required, the three sections mentioned above should pro- 
vide the information that the user would require if no modi- 
fications need to be made to the program for the particular 
application. In order to utilize the capabilities provided 
by the equilibrium gas model, the appendices provide an 
explanation of the data required on the gas property and 
expansion tapes as well as a description of a method of 
obtaining the required data for the tapes. 

The user who is interested in making modifications to 
the program should find the sections "Description of Vari- 
ables in Common" and "Description of Subroutines and Vari- 
ables not in Common" particularly beneficial. 

For all users and prospective users , a Fortran source 
listing of the program is included. 

The program was developed under contract NAS 1-9337 
with NASA Langley Research Center. The name of the program 
is an acronym derived from "Laminar and/or Turbulent Boundary 
Layers in Chemical Equilibrium". 

In this report many details in the derivation of equa- 
tions have been omitted. For the details of the theory and 
derivations, the user is referred to the contractor report 
by Anderson and Lewis [1971], 
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DESCR-I-PTION OF PROGRAM LTBLCEQL 


Program LTBLCEQL has been developed to provide solutions 
to a large number of boundary -layer flows. The program can 
predict laminar and/or turbulent boundary- layer flows and in 
addition transition models are included and described herein. 
The geometries included in the program are those for either 
2-D or axisymmetric blunt bodies, axisymmetric nozzles, and 
wedges or flat plates. Modifications may be easily made for 
other geometries. For example, sharp cones could be included 
with the principal changes being the addition of two geometry 
subroutines comparable to subroutines BLUNT1 and BLUNT2. The 
geometry is specified by the variables NOSE (values of 1 for 
a blunt body, 2 for a wedge or a flat plate, and 3 for a 
nozzle) and XJFAC (0.0 for 2-D flow and 1.0 for axisymmetric 
flow) . 


Basic Equations 

The program uses the basic compressible boundary -layer 
equations which are valid for turbulent flow of either a 
perfect gas or a gas in chemical equilibrium. The energy 
equation is written in terms of the stagnation enthalpy and 
the Reynold's shear and conductivity terms are given by an 
eddy viscosity -e and the turbulent Prandtl Number Pr^. The 
boundary -layer equations are transformed by the Levy-Lees 
transformation equations, 


d£ = p y u r dx 
K e e e w 


and 


dn 


p e U eV 

(25) % 


dy 


where 

j = 0 for 2-D flow 

= 1 for axially symmetric flow. 
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With the definition f 1 = u/u e an< ^ £ = 
continuity equation may be written as 


f 1 dn , the 


v n = - £ ’ 


where 


V = 


2| 


Pe^eVw 


2j 


[f + 


Cpv + p'v'ir^ 


•3 


C25V 


With the further definitions F = f T , g = H/H , C = py/p y , 

*4* / > B 6 5? 

£ = e/v, 


and 


3 


- 2£ du e 
’ u e 3T 


the energy and momentum equations can be written in the 
following "standard" form; 

0 ' ? + A 1 + A ? $ + A, + A, = 0 


where the prime denotes differentiation with respect to 
n and the subscript ? denotes differentiation with respect 
to C. 


For the momentum equation, $ = F, and the coefficients 
are given by the following equations: 


a, = 2a + ^ - v 


1 C 


A 


*o 


A ? = -3F/ A 


A = 

■tv "? A 


3 p e 


A o P 


and 


A, - - 25 PM 
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where 


A q = C (1 + e + ) 


and 


A o “ V C * 


For the energy equation, # = g = H/He, and the coef- 
ficients are given by the following equations: 


a, = 5a. + - v 


l l C 


A 


A, 


A 0 = 0 


u 


A 3 - H~ C1 " FP 1 


CA. 


FF„ + 


n 


FF 


nn 


71 A 


A, = 


2£F 

A 

o 


where 


A = — fl + e + — ~) 
A o Pr U e Pr t J 


and 


A = 


V c - 


With the equations written in the "standard" form, 
solutions are obtained from subroutine SOLVE which uses 
a three-point, finite-difference method. The solution 
procedure may be fully implicit, fully explicit, or inter- 
mediate (such as Crank-Nicolson) . The most satisfactory 
results have been obtained with the fully implicit pro- 
cedure and it is recommended. 
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Eddy Viscosity Laws 


For turbulent (and transition) flows, the Reynolds 
shear term is given by an eddy viscosity. Two different 
equations are used for the eddy viscosity. One equation 
(referred to as the inner law) is used in the region of 
the boundary layer near the wall, the other equation (the 
outer law) is used in the outer region of the boundary 
layer. The values given by the inner law increase from 
zero at the wall and, when they exceed the values given 
by the outer law, they are replaced by the values from 
the outer law. The outer law, which follows Clauser's 
work using Klebanoff's intermittency factor, gives values 
which tend to zero at the outer edge of the boundary layer. 
The program provides the user with two choices for the 
inner eddy viscosity law. One follows the work of Van 
Driest, the other is the eddy viscosity law derived by 
Reichardt. In general, the results obtained from the 
program using both laws have been equivalent, although 
the calculations using the Reichardt law required less 
computer time. Therefore, the Reichardt law is preferable 
for most applications. 


Transition Models 

The user interested in utilizing either of the 
transition models is advised that even though quite 
satisfactory results have been obtained for transition 
problems, caution must be exercised. 

Satisfactory agreement has been obtained with 
experimental results for several cases involving transi- 
tion, but only by selecting appropriate values of the 
transition parameters CHICRT and XBAR, Calculations 
involving transition are most satisfactory when done ex 
post facto, that is, when the parameters can be appropriately 
adjusted to obtain agreement with the experimental results. 

The first transition model changes the flow instan- 
taneously from laminar to turbulent at the specified value 
of x, and the x step size is reduced to 0.01. Heat transfer 
results obtained with this model show a much steeper rise 
than occurs in experimental data and on this basis the 
instantaneous transition model is not completely satis- 
factory. 

The second transition model provides a regime of 
transition from laminar to turbulent flow. The calculation 
is started with the flow laminar (c + = 0) and at the 
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beginning of transition the floxtf is changed to turbulent 
with the eddy viscosity attenuated by the transition inter- 
mittency- factor. As the intermittency factor increases 
from, zero -to -un-i-t-y- as- x- increases, -the eddy viscosity 
reaches its fully turbulent value at some distance down- 
stream of the point where transition begins. 

The procedure which is used to indicate the beginning 
of transition utilizes the vorticity Reynolds number x 
which is given by the following expression: 


X 


v 9y 


Transition is initiated when the maximum value of x> X mfjV > 
exceeds a critical value, X cr ^ t: (= CHI CRT) , which is 

generally in the range of 2000 to 4000. 

The transition intermittency factor is given by the 
expression 

r = 1 - exp (-AC 2 ) 

where 

A = 0.412 

and 


The value of x at the beginning of transition is x 0 and 
A is a measure of the length of the transition region 
which is given by Owen [1970] as 

A = x| 3 - x J i . 

1 4 1 T 

The values o-f x needed to calculate A can not be pre- 
determined .and an equivalent expression for A is used 
instead,, with A given by the expression 

X = ^ - 1) 

where x C = XBAR) is another measure of the length of tran- 
sition which is such that 


- 6 - 



X end of transition x ^beginning of transition * 

When the Van Driest inner eddy viscosity law is used, the 
above expression is quite close to an exact equality. For 
calculations with the Reichardt inner_eddy viscosity law 
equivalent results are obtained when x is increased by 
about 65%. Then, however, the above expression misses 
equality by 65%. With the Van Driest inner eddy viscosity 
law, 2.0 has been found to be an appropriate value for 
XBAR for some cases and larger values of XBAR have been 
required to obtain reasonable agreement with experimental 
results in other cases. The values of CHICRT and XBAR 
cited above should provide the user with reasonable initial 
estimates of appropriate values of these parameters. 


Normal Injection Model 


The program contains provisions for calculating 
boundary-layer flows with normal mass transfer through 
a porous wall. For no mass transfer, the transformed 
normal velocity component, V, is zero at the wall-. With 
mass transfer the value of V at the wall (VW) is given 
by . 


VW = 


m 


p 


V 

w w 


P y u r 
e e w 


J' 


At the stagnation point of a blunt body (where r ^ = 0) 
the equation for VW is w 


VW = p w v w / /p e U e u* e (j+l) . 

In the equations above, VW is . calculated using the 
injection rate P w ^ w or equivalently CQ. 

An alternative method of obtaining the value of V 
at the wall is from the value of the stream function at 
the wall. Also, V may be given by the equation 

V = - - f . 
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With f = constant, VW = - £ since 9f/9£=0 along 
w w 

the body streamline. If the value of f (FINJ) in the 

p-rog-ram fs zero, VW is calculated from the injection 
rate CQ; if both CQ and FINJ. are non- zero, VW is set 
equal to -FINJ. 

The beginning and end of injection are specified 
by the variables KINJ and KNOINJ which are subscripts 
for the array XSTA. Injection begins immediately after 
XSTA(KINJ). 'For X less than or equal to XSTA (KINJ) , CQ1 
is set equal to CQ and CQ is set equal to zero. After a 
solution has been obtained at X = XSTA(KINJ), DX is reduced 
to 0.01 and CQ is set equal to CQ1, and the message "INJECTION 
BEGINS" is written. After a solution has been obtained at X = 
XSTA(KNOINJ) , CQ is set to zero and the message "INJECTION 
ENDS" is written. If the input values of KINJ and KNOINJ are 
greater than UMAX, they are set equal to UMAX. 

The value of CQ may be either constant or variable. If 
the value of the variable KCQ is zero, CQ has a constant 
value and the values of CQZ(J), J = KINJ, KNOINJ, are set 
equal to CQ , the other values of GQZ(J) being set equal to 
zero. If KCQ is non- zero, the value of CQ is obtained by 
interpolation in the array CQZ if X is greater than XSTA 
(KINJ) and less than or equal to XSTA (KNOINJ) . 

For turbulent flow, the Van Driest inner eddy viscosity 
law includes the required corrections for mass transfer 
whereas the Reichardt inner eddy viscosity law does not. 

The normal injection model has been used for calculations 
of boundary -layer flows over a flat plate (the conditions cor- 
responding to the Danberg [1967] experimental data) for fully 
laminar, fully turbulent and transitional cases. The agree- 
ment with the experimental data was reasonably good (see 
Anderson and Lewis [1971]). 


Flow Diagrams 

The flow of logic in the program is controlled by 
MAIN (see description of MAIN) . To assist the user in 
following the flow of logic in the program, two flow 
diagrams of MAIN are included. Fig. 1 gives a flow diagram 
of MAIN by the logical functions involved, while Fig. 2 
gives a flow diagram of MAIN by the subroutines called. As 
the major subroutines have particular logical functions, 
there is a close correspondence between the two flow diagrams , 
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"start] 


T read input data 


jjMTIAU z E NON-SUBSCRIPTED VARIABLE 


WRITE INITIAL DATA 


CALCULATE INITIAL PROFILES 


BEGIN MARCHING INTEGRATION 


BEGIN ITERATION LOOP 


CALCULATE BOUNDARY CONDITIONS AT WALL 


SOLVE ENERGY EQUATION 


SOLVE MOMENTUM EQUATION 


CALCULATE TRANSFORMED NORMAL VELOCITY 
SKIN FRICTION AND HEAT TRANSFER 


TEST FOR TOO MANY ITERATIONS, CONVER- 
GENCE, NEED TO INCREASE 7?^ 


CALCULATE BOUNDARY LAYER COEFFICIENTS 
AND WRITE STATION DATA 


CHANGE TO EQUILIBRIUM GAS MODEL ? 


CALCULATE NEW X AND £ VALUE 


FINAL VALUE OF X? 


Fig. 1 FLOW DIAGRAM OF MAIN ROUTINE BY FUNCTION 
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Fig. 2 FLOW DIAGRAM OF MAIN ROUTINE BY SUBROUTINES CALLED 
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Other Features of the Program 


In the development of the program, generous use has 
been made of comment cards. Most major transfers of con- 
trol are marked by comments, and each subroutine is pre- 
ceded by comments giving the subroutines called and the 
subroutines by whi Ch it is called. In addition * brief 
comments are included describing the subroutine function. 

The common blocks have been structured so that most 
free-stream quantities are in the labeled common block 
FRSTRM, edge properties are in EDGPRP, transition regime 
related quantities are in TRANS, etc. With certain excep- 
tions all subscripted variables in the program are in com- 
mon blocks ARRAY1 or ARRAY 2 . The variables in ARRAY1 are 
those which depend on the number of grid points (note that 
DN, DN2, XN, and XN2 must have dimensions of at least IE+1, 
the other variables dimensions of at least IE) , \tfhile the 
variables in ARRAY2 are functions of x (e.g. ZA, RZ , PZ, 
etc.). The array CQZ occurs in common block INJECT instead 
of in ARRAY2. In subroutines where arrays are in the sub- 
routine argument, the arrays are dimensioned by 1 (as is 
permissible on the IBM 360). There are three arrays (not 
in common) in the program which depend on the number of 
grid points; XMU in subroutine PROP and E and F in subroutine 
SOLVE. If the variables in ARRAY1 are redimensioned, these 
three variables must be also (unless the dimensions in 
ARRAY1 are reduced). All other subscripted variables, 
such as ZZ, have dimensions suitable to their function. 

The program as listed is in single precision. This 
precision is quite adequate on computers such as the CDC 
6600. The six significant figures used in the IBM 360 
single precision is adequate for only the very simplest 
cases. Thus for use on computers such as the IBM 360, a 
029 punch, double precision version of the program is 
available . 
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DESCRIPTION OF VARIABLES IN COMMON 


In this section, each variable which is included _in 
a ..labeled- common- block - i-s- given a brief description" The 
name of the labeled common block in which the variable 


occurs 

is given to the 

left 

of the variable name. 

Common 

Variable 


Description of Variable 

Block 

Name 


NMLCRD 

ADTEST 

9 

Criterion for Increasing 
ETAINF, (F (IE) - F(IE-4) is 
compared with ADTEST) 

EDGPRP 

ALP 

~ 

UE** 2/TE or UE**2/HESTAT 

EDGPRP 

ALP1 

= 

_1 + ALP/ 2 

FRSTRM 

AMUINF 

“ 

U OT , lbf-sec/ft 2 

REF 

AMUREF 

9 

Reference Viscosity Corresponding 
to TREF1, lbf-sec/ft2 

GEOME 

ANGLE 

9 

Wedge Half Angle, in Degrees 
(Converted to Radians) 

TRANS 

ATR 

9 

Transition Constant (=0.412) 

ARRAY 1 

AO 

= 

+ 

A 0 = C (1 + e ) , Momentum 
Equation 




C r , . + Pr r 

“ Pr U + £ Pr )-» Energy 

Equation ^ 

ARRAY 1 

AOB 

SJ 

A 0 = A o /C, where C = py/p e y e 

ARRAY 1 

AO BP 

- 

dA 

0 




3ri 

ARRAY 1 

A1 

9 

Partial Differential Equation 
Coefficient 

COMWLL 

A1B 

9 

Derivative of U/U at Wall 

e 

ARRAY 1 

A2 

9 

Partial Differential Equation 
Coefficient 

ARRAY1 

A3 

9 

Partial Differential Equation 
Coefficient 

ARRAY 1 

A4 

9 

Partial Differential Equation 
Coefficient 
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Common 

Block 

Variable 

Name 


Description of Variable ‘ 

EDGPRP 

BETA 

= 

0 = 2$/U e (dU e /de) 

COMWLL 

BO 

- 

H /H 
w/ o 

ARRAY 1 

C 

= 

py/p e y e 

CNVERG 

CCRNI 

= 

1 - CRNI 

CFPR 

CF 

>■ 

Skin Friction in Transformed 
Coordinates (= C £ /^yp) 

00 

COEFF 

CFBAR 

= 

^f = x { C f dt 
J 0 °° 

COEFF 

CFBREX 

= 

C £ /RE X 

COEFF 

CFE 

= 

C = 2 t Id U 2 
f w r e e 

e 

COEFF 

CFINF 

= 

Cr = 2x /p U 2 
x 00 00 

00 

COEFF 

CFRES 

= 

CFREY 

COEFF 

CFREY 

= 

C £ /REX 

CO 

COEFF3 

CF1 

> ' 

Term Used in Computing CFBREX 

COEFF 

CH 

= 

C h Ml V AH” ) 1 wher ® 

03 H co oo v w aw 




H is the Adiabatic Wall 

aw 

Enthalpy 

COEFF 

CHEDGE 

= 

” r - Q 

h p^J (H -H J 

e ^e e ^ w aw' 

ARRAY 1 

CHI 

- 

2 a 

X = -gy > Vorticity Reynolds 




Number 

TRANS 

CHI CRT 


Value of CHIMAX at which 
T-ransition Regime Calculations 
are Begun 
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Common 

Block 

Variable 

Name 


Description of Variable 

T.RANS. _ 

- .CHI-MAX 

r 

Maximum Value in'CHT Array 

COEFF 

CHOCF 

= ■ 

2 C h /C £ 
e e 

COEFF 

CHREY 

= 

C, /REX 

i co 

REF 

CMSTD 

t 

Standard Molecular Weight of 
Given Gas 

CNVERG 

CONVRG 

> 

Convergence, Criterion 

ARRAY1 

CP 

= 

3C 

SUTH 

CPRIM 

- 

C*/T where C* = 198. 6°R 

' ref’ 

INJECT 

CQ 

= 

p v /p u 

INJECT 

CQ1 

) 

Storage Value of CQ 

INJECT 

CQZ 

> 

Array of Injection Rate Values 

CNVERG 

CRN I 

> 

Selector for Finite Difference 
Scheme; 1.0 for Fully Implicit, 
0.5 for Crank-Nicolson, and 
0.0 for Fully Explicit 

VSCSTY 

CSTAR 

= 

C* = 198. 6°R 

FRSTRM 

CX 

= 

C , Specific Heat, ft^/ (sec^-°R) 
P 

ARRAY 1 

Cl 

= 

1 - 1/PREQ 

ARRAY1 

C1N 

= 

9C1 

9n 

COEFF 

DEL 

= 

S, Boundary Layer Thickness 
(Value of y where U/U e = 0.995) 

COEFF2 

DELORF 

= 

S/reference length 

COEFF2 

DELOX 

= 

5/x 

COEFF 

DELST 

= 

5*', Compressible Boundary Layer 
Displacement Thickness 
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Common 

Block 

Variable 

Name 


Description of Variable 

COEFF 

DELTA 

= 

S / e VD 

CNVERG 

DIF 

7 

Maximum Difference in G or 
F' (or their Derivative at 
the Wall) between Iterations 
(Compared with CONVRG in 
Convergence Test) 

CNVERG 

DIFF 

7 

Local Difference in G or 
F between Iterations 

CNVERG 

DIF1 

7 

Difference in G (or its 
Derivative) at the Wall 
Between Iterations 

CNVERG 

DIF2 

9 

Difference in the Derivative 
of F at the Wall Between 
Iterations 

ARRAY 1 

DN 

> 

Array of An Values 

ARRAY 1 

DN2 

7 

Array of An Values (Used 
only when ETAINF is Increase' 

GEOME 

DS 

= 

A£ Corresponding to Ax 

COEFF2 

DSAXOR 


6* ./reference length 

aXl 

COEFF 

DSTARK 


6^, Incompressible Boundary 
Layer Displacement Thickness 

COEFF 2 

DSTODL 

= 

6*/6 

COEFF2 

DSTORF 

= 

S*/reference length 

COEFF2 

DSTOTH 

= 

<$*/e 

C0EFF2 

DSTOX 

= 

<S*/x 

COEFF 

D ST RAX 

= 

<5* . = r {/l + 26*/r - 1} 

aXX 

(Zero for 2-D Flow) 

EDGPRP 

DUEDS 

= 

dUE/ds 

GEOME 

DX 

= 

Ax, Step Size in x Direction 
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Common 

Block 

Variable 

Name 


Description of Variable 

GEOME 

DXMAX 

9 

Maximum Value of Ax Permitted, 
-in tire Calculations 

GEOME 

DXOLD 

9 

Previous Value of Ax 

GEOME 

DX1 

9 

Storage Value of Ax at the 
First Station 

ARRAY 1 

EPSO 

~ 

e , the Outer Eddy Viscosity 

ARRAY 1 

EPSPL 

- 

•J* 

el, or e , the Inner Eddy 




Viscosity or the Combined 
Inner and Outer Eddy 
Viscosities 

VSCSTY 

EPSVD 

= 

e YQ = ^ref^ ^ f Where 




L is the Unit Length in REINF 

NMLCRD 

ETAINF 

9 

Maximum Value of n 

COMWLL 

El 

9 

Matrix Inversion Coefficient 
Evaluated at the Wall 

ARRAY 1 

FC 

= 

CRNI (F2-F1) + FI 

ARRAY1 

FCN 


CRNI (F2N-F1N) +-F1N 

ARRAY1 

FCP 

= 

(F2-F1)/DS 

COMWLL 

FF 

9 

Wall Boundary Condition on F 

COMWLL 

FINJ 

— 

- f , Value of Stream Function 
w’ 

at Wall 

ARRAY 1 

FI 

9 

Value of F (U/U ) from Previous 




Iteration or Station 

ARRAY 1 

FIN 

= 

3F1 

9n 

ARRAY 1 

FINN 

= 

3 2 F1 

8n 2 

ARRAY 1 

F2 

9 

Value of F from Solution of 


Momentum Equation 
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Common 

Variable 


Description of Variable. 

Block 

Name 


ARRAY 1 

F2N 

- 

3F2 

ARRAY 1 

F2NN 

_ 

32 f 2 




3n 2 

COMWLL 

F2N1 

y 

Value of F2N at Wall from 
Previous Iteration 

EDGPRP 

G 

= 

y = C /C 

' p' V 

EDGPRP 

GAMEFF 

> 

Effective y Behind Normal 




Shock (for Blunt Body) (Same 
as G for a Nozzle) 

TRANS 

. GAMMA 

y 

Transition Intermittency ? 

Factor, F, T = 1 - exp (-A£ j , 

- 



where A = ATR and £ = XIBAR 

COEFF 

HAFCF 

= 

C f / 2 

EDGPRP 

HALP 

= 

CO 

ALP/ 2 

EDGPRP 

HE 

= 

H /H r where H U _r 2 

o' ref’ ref ref 

EDGPRP 

HESTAT 

= 

Static Enthalpy at Edge 

Divided by H x 
7 ref 

FRSTRM 

HEXIT 

= 

Logio CHVRGAS) at Nozzle .Exit 

FRSTRM 

HFS 

= 

H oo> ft2/sec2 

COEFF 

HG 

= 

QW*EPSVD 

C0EFF3 

HG FAC 1 

> 

Term Used in Computing HG1 

COEFF3 

HGFAC2 

> 

Term Used in Computing HG2 

COEFF 

HG1 

y 

Heat Transfer Coefficient in 




BTU/Cin 2 -sec-°R) 

COEFF 

HG2 

y 

Heat Transfer Coefficient in 




Ibm/ (in 2 -sec) 

REF 

HREF 

= 

H ref =U «- 3 £t / sec 

STAG 

HSTAG 

= 

H q , ft 2 /sec 2 

COMWLL 

HW 

= 

H /H _ 
w ref 

COMWLL 

IADW 

y 

Indicator, 1 for Adiabatic 
Wall, 0 for Non-adiabatic Wall 
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Common 

Block 

Variable 

Name 


Description of Variable 

IN.T.GR . 

-I-E 

9 

Humber of Grid Points in 
T 1 Direction 

NTEGER 

II 

9 

Subscript for Array IPR 

INTGR 

UMAX 

9 

Maximum Number of Values in 
Geometry Arrays (i.e. ZA, 
XSTA, etc.) 

INTGR 

IM 

= 

IE - 1 

NTEGER 

IPFL 

9 

Number of Values in Array 
IPRFL 

ARRAY 2 

IPR 

9 

Array of Subscripts for 
Array XSTA Giving Values of 
x at which a Solution is to 
be Obtained. 

ARRAY 2 

IPRFL 

9 

Array of Subscripts for Array 
XSTA Giving Values of x at 
which Complete Solutions 
(with Profiles) are to be 
Printed 

NTEGER 

IPRINT 

9 

Number of Values in Array IPR 

INTGR 

IPRNT 

9 

Subscript for Array IPRFL 

INTGR 

I STOP 

9 

Number of Iterations Since 
Last Converged Solution 

INTGR 

ITH 

9 

Subscript in the Geometry 
Arrays of the Throat Location 

NTEGER • 

JJ 

9 

Integer Used in Computing DX 

NTEGER 

‘ K 

9 

Station Counter 

NTEGER 

KADETA 

9 

Indicator, if Zero, ETAINF is 
Held Constant, if Non- zero, 
ETAINF can be Increased 

INJECT 

KCQ 

9 

Indicator, Zero for Constant 


Injection Rate, Non- zero for 
Injection Rate Distribution Input 
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Common 

Block 

NTEGER 

NTEGER 

NTEGER 

INJECT 

INTGR 

INJECT' 

INTGR 

INJECT 

STRT 


Variable - 
Name 

KEND 

KEP 


KFS 


KINJ 

KL 


KNOINJ 

KPD 


KPGRAD 


KRSTRT 


Description o£ Variable 


Maximum Value Allowed for K 

Subscript in EPSPL Array 
Where the Inner and Outer 
Eddy Viscosities are Matched 

Indicator, Non-zero for 
Computing in the Program 
Dimensional Free-stream, 
Stagnation and Reference 
Values and Dimensional Heat 
Transfer and Heat Transfer 
Coefficients, Zero to Bypass 
Computing Dimensional Quantities 

Subscript in XSTA Array Giving 
Location of Beginning of 
Inj ection 

Index for Profile Output DO 
Loop, 1 Gives Output for Each 
Grid Point, 2 for Every Second 
Grid Point 

Subscript in XSTA Array Giving 
Location of End of Injection 

Indicator, 0 for Pressure 
Computed by Program Based on 
Nozzle Area Ratio, Non- zero 
for Pressure Distribution 
Input 

Indicator for Expression for 
A + in Van Driest Inner Eddy 
Viscosity Law; 0 for A + = 26, 

1 for A + Corrected for Mass 
Transfer, 2 for A 4 - Corrected 
for Pressure Gradient, 3 for 
A + Corrected for Both Mass 
Transfer and Pressure Gradient 

Restart Indicator; Zero for 
Starting Ne\\r Solution; Greater 
than Zero Restarts Solution, 

Next Solution obtained at 
K = KRSTRT +■ 1, Solution at 
K = KRSTRT used as Initial 
Values 
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Common 

Block 

Variable 

Name 


Description of Variable 

NTEGER 

KST-OP- 


'Indicator, Normally Zero, 
Set to One when Solution is 
Completed (X = XSTA (UMAX)) 

NTEGER 

KSTRT 

= 

KRSTRT + 1 

NTEGER 

KTPW 

9 

Next Value of K at which the 
Restart Tape will be Written 

TRANS 

KTRANS 

9 

Indicator for Transition 
Regime, Zero for No Transition 
or Instantaneous Transition, 

One for Transition Regime 

(Set to Two at "End of Transitio] 

NTEGER 

KTRNSN 

> 

Subscript in XSTA Array at Which 
Instantaneous Transition Occurs 

COMWLL 

KTW 

? 

Indicator, Zero for Constant 
Wall Temperature, Non-zero for 
Wall Temperature Distribution 
Input 

1NTGR 

KVSLAW 

> 

Indicator for Inner Eddy 
Viscosity Law, Zero for 
Reichardt Law, Non- zero for 
Van Driest Law 

NTEGER 

LAMTRB 

> 

Indicator, 1 for Laminar Flow, 
2 for Turbulent Flow 

CNVERG 

NC 

9 

Specifies Convergence Test, 
Zero for Test on Derivatives 
at Wall, One for Test on 
Functions at all Points in 
Profile 

INTGR 

NEQIL 

9 

Indicator for Gas Model, Zero 
for Perfect Gas Model, Non-zero 
for Equilibrium Gas Model 

INTGR 

NEQL 

9 

Storage Value of NEQIL 

INTGR 

NIT 

9 

Number of Iterations at Cur- 
rent Value of x 

NTEGER 

NITTOT 

9 

Cumulative Total Number of 
Iterations in x Direction 
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Common 

Block 

Variable 

Name 


Description of Variable 

INTGR 

NIT1 

9 

If, after a converged solution 
is obtained, NIT is less than 
or equal to NIT1, Ax is doubled. 

INTGR 

NIT2 

9 

If, after a converged solution 
is obtained, NIT is greater than or 
equal to NIT2, Ax is halved. 

INTGR 

NIT3 

9 

If NIT = NIT3 before a converged 
solution is obtained, Ax is halved, 
X and XI are recomputed and the 
iteration loop is restarted with 
the smaller values of X and XI . 

INTGR 

NOSE 

9 

Indicator for Geometry, 1 for 
a Blunt Nose, 2 for a Wedge or 
a Flat Plate, 3 for a Nozzle 

STRT 

NRSTRT 

9 

Increment in K for which the 
Restart Tape is Written 

TAPENV 

NT1 

9 

Tape Unit Number for Expansion 
Tape 

TAPENV 

NT 2 

9 

Tape Unit Number for Gas Table 
Tape 

TAPENV 

NT 3 

9 

Tape Unit Number for Restart 
Tape 

TAPENV 

NT 4 

9 

Unit Number for Scratch Tape 

TAPENV 

NV 

9 

Number of Variables Written 
on the Gas Property Tape 

VSCSTY 

OMEGA 

9 

to, Exponent for Power Viscosity 
Law (If to=o, Sutherland's law 
is used.) 

EDGPRP 

PE 


- V P ref-' where P ref = »ref U ?-e£ 

EDGPRP 

PESO 


P P at s = 0 

e ref’ 

FRSTRM 

PEXIT 

= 

Log 10 P at Nozzle Exit, P in 
Atmospheres 

FRSTRM 

PFS 

9 

Free-stream Static Pressure, 
PSIA 
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Common 

Block 

Variable 

Name 


Description of Variable 

GEOME. . 

PNG - 


/2E - - - • - - 

— — — t -, Term in Transformation 

u p r- 1 
e*e w 

of Normal Co-ordinate 

EDGPRP 

PP 

= 

dPE/dS 

CFPR 

PR 

= 

Pr, Laminar Prandtl Number 

REF 

PREF 

= 

^ref ~ ^ref ^ref 

ARRAY 1 

PREQ 

= 

Pr for Equilibrium Gas Model 

CFPR 

PRL 

= 

PR 

CFPR 

PRT 

= 

Pr t , Turbulent Prandtl Number 

STAG 

PSTAG 

) 

Free-stream Stagnation Pres- 
sure, PSIA 

ARRAY 2 

PZ 

i 

Local Pressure Array, P/P in 
Input, P/P re f for Ideal gSs, P 

in PSIA for Equilibrium Gas 

REF 

POPRIM 

> 

Local Stagnation Pressure for 


Ideal or Equilibrium Gas, PSIA 
(Corresponds to Stagnation 
Pressure on Expansion Tape) 


STAG 

P10 


P /P - 
o' ref 

COEFF 

QDOT 

9 

Wall Heat Transfer, BTU/ (ft^-sec) 

C0EFF3 

QW 

9 

Heat Transfer Coefficient in 
Transformed Coordinates 

GEOME 

R 

9 

Gas Constant for Specified Gas 

GEOME 

RE-FLEN 

9 

reference length (May be any 
value appropriate to user's 
needs . ) 

FRSTRM 

REINF 

9 

Free-stream Reynolds Number 
per Unit Length 

COEFF 

RETHET 

= 

Re 0 , Edge Unit Reynolds Number 
Times 0 
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Common 

Block 

Variable 

Name 


Description of Variable 

COEFF 

REX 

3 

Local Reynolds Number Based 
on Edge Conditions 

EDGPRP 

RGAS 

- 

R, Specific Gas Constant, 
ft^/ (sec^-°R) 

FRSTRM 

RHOFS 

= 

Pco3 slugs/ft 3 

REF 

RHOREF 

- 

p re f = Poo* slugs/ft 3 

REF 

RHOSTD 

3 

Density of Gas at Standard 2 

Atmospheric Conditions, slugs/ft 

STAG 

RHOSTG 

= 

p , Reservoir or Local Stagnation 
Density, slugs/ft^ 

EDGPRP 

ROESO 

= 

P e /P ref at 5=0 

COEFF2 

ROREFL 

= 

r/reference length 

ARRAY 1 

ROROE 

= 

p/p e 

EDGPRP 

ROWE 

= 

^e^ref 

EDGPRP 

ROWEP 

= 

P e /P re f at Previous Value of x 

ARRAY 2 

RZ 


r, Array of Radius Values 

GEOME 

RO 

= 

r. Local Radius 

GEOME 

SCF 

3 

Scale Factor used to Convert 
Unit Length for REINF (REINF 
is Computed per Foot if SCF=1; 
per inch if SCF=1; per inch if 
SCF=12 . ) 

COEFF • 

STE 

= 

p u (H - H ) 
K e e v w o 

COEFF 

STINF 

= 

p u (H - H ) 

r oo w W 0 

COEFF3 

SUM 

3 

Term used in Computing GFBREX 

COMWLL 

TB 

= 

H /H 
w e 
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Common 

Block 

Variable 

Name 


Description of Variable 

ARRAY' 1 

TC 

= 

CRN I (T2 - Tl) + T1 

ARRAY 1 

TCN 

= 

CRN I (T2N-T1N) + TIN 

EDGPRP 

TE 

- 

T /T r, where T - = U 2 /C 
e ' ref’ ref 00 ' p 

EDGPRP 

TESO 

- 

T /T , at s = 0 
e ' ref 

FRSTRM 

TFS 

= 

O 

8 

H 

ARRAY 1 

TH 

= 

T / T e 

COEFF 

THET 

= 

0, Boundary Layer Momentum 
Thickness 

COMWLL 

THN1 

> 

Value of THP at Wall 

COEFF2 

THODEL 

= 

6/6 

COEFF2 

THOREF 

= 

0/reference length 

ARRAY 1 

THP 

= 

dTH 

dn 

GEOME 

THSHOK 

> 

Shock Angle, in Degrees (Con- 
verted to Radians) 

COMWLL 

TH1 

> 

Value of TH at Wall 

FRSTRM 

TIN 

= 

T o 0 / T ref 

REF 

TREF 

= 

T ref - u - 2 / C p 

REF 

TREF1 

> 

Reference Temperature, °R 
(Used in Computing REINF if 
Input Value of REINF is Zero) 

STAG 

TSTAG 

> 

T o , °R 

COMWLL 

TW 

= 

T °R or T /T > 

w’ w / ref 

ARRAY 2 

TWZ 

> 

Array of Wall Temperature 
Values, °R 

ARRAY 1 

T1 

> 

Value of G (H/H ) from 
Previous Iteration or Station 
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Common 

Variable 


Description of Variable 

Block 

Name 


ARRAY 1 

TIN 

= 

3T1 

3n 

ARRAY1 

T1NN • 

_ 

2 

3 T1 

9 




3ri . 

STAG 

T10 

= 

T /T r 

o' ref 

ARRAY 1 

T2 

> 

Value of G from Solution of 
Energy Equation 

ARRAY 1 

T2N 

- 

3T2 

3n 

ARRAY 1 

T2NN 

= 

3 2 T2 

9 




3D 

COMWLL 

T2N1 

> 

Value of T2N at Wall from 
Previous Iteration 

COMWLL 

T21 

j 

Value of T2 at Wall from 
Previous Iteration 

EDGPRP 

UE 

= 

U /U x 
e' ref 

EDGPRP 

UER02 

= 

(U /U ,3r 2j ' 
v o' ref J 

EDGPRP 

UESO 

= 

U /U - at s = 0 
e' ref 

ARRAY 2 

UEZ 

= 

U e / U co> Arra Y 

FRSTRM 

UFS 

= 

U^, ft/sec 

REF 

UREF 

= 

U ref ° ft/sec 

ARRAY 1 

VC 

= 

'P •} "C 

V = (- 2£ - F)dri, Transformed 

O C 

'^0 




Normal Velocity Component 

VSCSTY 

VK 

= 

CPRIM/TE 

COMWLL 

VW 

> 

Value of VC at Wall 

GEOME 

X 

* 

Local Surface Distance, x 
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Common 

Variable 


Description of Variable 

Block 

Name 



-T-RANS - • 

XBAR 

9 

Measure of Relative Length of 
Transition 

(i.e. Xg n £ T ran sition 

XBAR Xg e gi nn ing of Transition^ 

GEOME 

XI 

~ 

5 , Transformed Surface 
Distance 

TRANS 

XI BAR 


f, Transition Intermi ttency 
Factor Coordinate £ = 

(X-XZERO) /XLAMDA, where 
XLAMDA = (XBAR-1)* XZERO/4 
and XZERO is the value of x 
at the start of transition. 

GEOME 

XIOLD 

9 

Previous Value of XI 

GEOME 

XI 2 


2*XI 

GEOME 

XJAY 

= 

XJFAC 

GEOME 

XJFAC 

y 

Indicator, Zero for 2-D Flow, 
One for Axially Symmetric Flow 

NMLCRD 

XKETA 

y 

Parameter Which Controls the 
Grid Spacing in the p Directioi 
(1.0 Gives an Equally Spaced 
Grid, a Value Greater than 1.0 
Gives a Grid with a Smaller 
Spacing at the Wall than at 
the Outer Edge.) 

VSCSTY 

XK1 

y 

Constant for Van Driest Inner 
Eddy Viscosity Law 

VSCSTY 

XK2 

y 

Constant for Outer Eddy 
Viscosity Law 

EDGPRP 

XM 

y 

M g , Local Edge Mach Number 

FRSTRM 

XMA 

y 

M , Free-stream Mach Number 
00 J 

EDGPRP 

XMUE 

= 

^e^ref 

EDGPRP 

XMUEP 

= 

P e /h re £ at Previous Value of x 

FRSTRM 

• XMUFS 

= 

lbf-sec/ft^ 
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Common 

Block 

Variable 

Name 


Description of Variable 

VSCSTY 

XMUINF 

= 


REF 

XMUREF 

= 

y ref’ ibf-sec/ft 2 

EDGPRP 

XMUSO 

= 

y e /y re£ at 5 “ 0 

ARRAY 1 

XN 

> 

Array of p Values 

ARRAY 1 

XN2 

y 

Array of p Values (Used only 
when ETAINF is Increased) 

GEOME 

XOLD 

> 

Previous Value of X 

COEFF2 

XOREFL 

= 

x/reference length 

ARRAY 2 

XSTA 

— 

x, Array of Surface Distance 
Values used to Specify Geometry 

ARRAY 1 

Y 

= 

y/e™, Stretched Normal Co- 
ordinate 

ARRAY 1 

YOVDEL 

3 

y/6 

ARRAY 1 

YOVTHT 

- 

y/e 

ARRAY 1 

YY 

= 

y. Normal Coordinate 

GEOME 

Z 

= 

z. Local Axial Coordinate 

ARRAY 2 

ZA 

= 

z. Array of Axial Coordinate 
Values used to Specify Geometry 

GEOME 

ZOL 

= 

z/body length 

COEFF2 

ZOREFL 

= 

z/reference length 
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DESCRIPTION OF SUBROUTINES AND VARIABLES NOT IN COMMON 


Following the subroutine index, each subroutine is- given 
a b-r-i-e-f description. Included in the subroutine description 
is a description of the variables used in the subroutine which 
do not appear in common and a listing of the variables used in 
the subroutine which appear in common and thus are described 
in the preceding section "Description of Variables in Common". 

Subroutine Index 


Subroutine 


MAIN 
ADDETA 
BLUNT 1 
BLUNT 2 
CHANGE 
COEF 
DELTAS 
DENSIT 
DERIV3 
EDGE 
EDGE1 
EFFMU 
EGPROP 
ENERGY 
EQLDTA 
FD3 
FD5 
GEOM 
INIT 
INTER3 
INTER5 
INTERP 
INTRP5 
MACH 
MOMENT 
N0ZLE1 
NOZLE2 
PRFILE 
PROP 
READ IN 
- REFSUB 
RHOMU 
SLOW 
SOLVE 
TLU 


Subroutine 

Label + 


A 

B 

C 

D 

E 

F 

G 

H 

AI 

I 

J 

K 

L 

M 

N 

AO 

AP 

0 

P 

AL 

AM 

AJ 

AN 

Q 

R 

S 

T 

U 

V 
W 
X 

Y 
Z 

AA 

AK 


Listing on 
Page 


105 

109 

110 

113 

114 

115 

117 

118 

154 
118 
121 
123 
127 
127 

129 

157 

158 

130 

131 
156 

156 

155 

157 

132 

134 

135 

137 

138 

139 

140 
143 

143 

144 

145 
155 


Description 
on Page 


30 

31 

32 

33 

34 

35 

36 

37 

38 
38 
41 
43 

46 

47 
47 
49 
49 
49 

49 

50 

51 

51 

52 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 

63 

64 
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Subroutine 

Subroutine 

Label+ 

Listing on 
Page 

Descripti 
on Page 

VISCO 

AB 

145 

64 

WALL 

AC 

146 

65 

WDGFP1 

AD 

14-8 

66 

WDGFP2 

AE 

150 

67 

WRITE1 

AF 

150 

68 

WRITE2 

AG 

152 

69 

ZRO 

AH 

154 

70 


4 * 

See section "Fortran Source Listing of Program LTBLCEQL" . 
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'MAIN 


The principal function of MAIN Is to control the flow 
of logic in the program. Also, some calculations are made 
in MAIN. In general, the calculations in MAIN are such 
that they cannot conveniently he performed in the subroutines 
or they are not sufficiently similar to the calculations 
made in particular subroutines . 

Subroutine READIN is called first. If the input data 
is from the restart tape, the calculations which normally 
occur at the end of MAIN after subroutine WRITE2 is called 
are made, the next section of the program is skipped, and 
the marching integration is resumed. Otherwise, the initial 
data and profiles are calculated and written by subroutine 
WRITE1 and the integration is begun, with the statement 
DO 210 K = KSTRTjKEND. The boundary conditions at the wall 
are calculated and the energy and momentum equations are 
solved. The transformed normal velocity component, V, is 
calculated as are the skin friction and heat transfer in 
the transformed co-ordinates (CF and QW) . The Iteration 
counters are incremented and NIT and ISTOP are checked. . 

If ISTOP is greater than 100 the program is stopped. If 
NIT equals (or exceeds) NIT3 the step size is halved, x 
and £ are recalculated, and control is returned to the 
beginning of the iteration loop. Otherwise, the next test 
is the convergence test. If the convergence criterion is 
not satisfied, control is returned to the beginning of the 
iteration loop. 

When convergence has been obtained, the velocity pro- 
file is checked to see if ri m needs to be increased. If so, 
subroutine ADDETA is called and control is returned to the 
beginning of the iteration loop. If not, subroutines COEF 
and WRITE2 are called. For equilibrium gas calculations 
a perfect gas solution is obtained for the first station, 
control Is then transferred to a point before the marching 
integration is begun, and the perfect gas solution provides 
starting values for the equilibrium gas calculations. 

New values of x and E, are obtained and the present 
values of velocity and enthalpy are assigned to the arrays 
which contain the values for the previous station, and the 
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iteration counters NIT and ISTOP are reset. If a solution 
has been obtained for the final value of x, (or for K = KEND) 
the program stops, otherwise, the program returns to the 
beginning of the marching integration loop to obtain a 
solution at the new value of.x. 


ABST 

CW 


Description of Variables 


| F2 (IE) - F2 (IE-4) | . If ABST is greater 
than or equal to ADTEST, n ro is increased. 


IPRIIM 


IPR(II-l) 


KREADN 


KRITE1 


N 


Indicator for Subroutine READIN, 1 for Input . 
Data, 2 for Initial Data Written on Restart 
Tape, 3 for Station Data Written on Restart 
Tape 

Indicator for Subroutine WRITE1, 1 for 
Initialized Data, 2 for Recomputed Data 
for Equilibrium Gas 

Array Subscript 


The following variables which are used in MAIN are 
described in the section "Description of Variables in 
Common"; ADTEST, ALP, ALP1, A1B, C, CCRNI , CF, CF1, CONVRG , 
CQ, CQ1 , CRNI , CSTAR, CX, DIF, DN, DUEDS, DX, EPSVD , FC , 
FCN, FCP , FINJ, FI, FIN, F2, F2N, F2NN, F2N1, G, HALP , HE, 
HGFAC1, HGFAC2 , IADW, IE, II, UMAX, IPR, IPRNT , ISTOP, K, 
KADETA, KEND, KINJ, KNOINJ, KSTOP , KSTRT , LAMTRB , NEQIL , 
NEQL, NIT, NITTOT, NIT3, NOSE, NT3 , OMEGA, PNC, PR, QW, 
REINF, RHOFS, RHOREF , ROROE , ROWE, RO, SCF, SUM, TC, TCN, 
TE, TH, THP , TIN, Tl, TIN, T1NN , T2, T2N, T2NN , T2N1, UE, 
UFS, UREF, VC, VK, VW, X, XI, XIOLD, XI2, XJFAC, XMA, XMUE , 
XMUFS, XMUINF , XMUREF , XN, XOLD, XSTA, Y, YY. 


Subroutine ADDETA 

Subroutine ADDETA is used to increase ETAINF when 
the value of F at the outermost grid point and the value 
of F four points inward differ by more than the quantity 
ADTE-ST. A new array of n values is generated with the 
maximum value increased by five. Three point interpolation 
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is used to obtain the values of velocity and enthalpy 
[F and G) at the new grid points, whereas, at the grid 
points lying between the new and old values of ri^F 
and G' are set equal to’ unity. First and second derivatives 
of F and G are then calculated.- The storage arrays for F 
and G and their derivatives are updated and V is recalculated 
using the new values of F and q . The arrays for y, T/T g , 
p/p e , etc. are not updated in this subroutine but are 
recalculated at the normal points in the solution procedure. 

The subroutine provides the output of the intermediate 
profiles following the message that q^ has been increased. 

DX, XKETA, ETAINF, and ADTEST are also included in the 
output . 


USAGE : 

CALL ADDETA 



Description of Variable 

DETA1 

, Aq at Wall 

ETA1N2 

, New Value of q TO 

JC 

, Array Subscript 

N 

, Array Subscript 


The following variables which are used in subroutine 
ADDETA are described in the section ’’Description of 
Variables in Common”: AOBP, C, CHI, CP, DN, DN2, DX, 

EPSPL , ETAINF, FC, FCN, FCP , FI, FIN, FINN, F2, F2N, F2NN, 
IE, IM, ISTOP, KL, ROROE, TC , TCN, TH, T1 , TIN, T1NN, T2, 
T2N, T2NN, VC, VK, XKETA, XN, XN2 , YOVDEL , YOVTHT , YY . 


Subroutine BLUNT1 

This subroutine calculates the edge and reference 
conditions at the stagnation point for a blunt body. 

For a perfect gas, the properties are obtained from 
perfect gas relations. For an equilibrium gas, the pro- 
perties are calculated using the data on the expansion 
and gas property tapes. The derivative of u g with respect 
to s is obtained using the five-point differentiation . 
formula with two points reflected about the stagnation 
point. 
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USAGE : 


CALL BLUNT 1 




Description of Variables 

DUM 

7 

Dummy Variable 

DUM1 

7 

Dummy Variable 

DUM2 

7 

Dummy Variable 

DUM3 

7 

Dummy Variable 

HESTJ 

7 

Array of Log^ Q (H*/RGAS) Values 

J 

7 

Array Subscript 

NERR 

7 

Dummy Variable 

PATMS 

7 

Pressure in Atmospheres 

PEJ 

7 

Array of PL Values 

PL 


Logio P, P in Atmospheres 

TE1 

7 

Dummy Variable 

UEJ 

7 

Array of U Values 

XS2 

7 

X Coordinate Used to Obtain Stagnation DUEDS 

XS3 

7 

X Coordinate Used to Obtain Stagnation DUEDS 

zz 

7 

Dummy Array for Thermodynamic and Transport 



Properties 


The following variables which are used in Subroutine 
BLUNT1 are described in- the section "Description of 
Variables in Common": ALP, BETA, CPRIM, CSTAR, CX, DUEDS , 

G, HE, HESTAT, HFS , HREF, HSTAG , UMAX, NEQIL , NT.l , NT 2 , 

NV, OMEGA, PE, PESO, PFS, PNC, PP , PREF, PSTAG, PZ, POPRIM, 
P10, REINF, RGAS , RHOFS, RHOREF, RHOSTD , RHOSTG , ROE SO , ROWE, 
ROWEP; RO, SCF , TE, TESO, TFS , TREE, TSTAG , T10, UE , UER'02, 
UEZ, UFS , UREF, X, XJFAC, XM, XMA, XMUE , XMUEP , XMUFS , 

XMUINF, XMUREF, XMUSO, XSTA, Z, ZA. 


Subroutine BLUNT 2 

For a blunt body, the edge properties required by 
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subroutine DELTAS to calculate A£ are provided by subroutine 
BLUNT2. For a perfect gas, the properties are calculated 
from perfect gas relations, whereas, for an equilibrium gas' 
the properties are obtained from subroutine EDGE. In the 
immediate vicinity of the stagnation point, z and r (for 
both gas models) and Pe and du e /ds (for the perfect gas) 
are calculated using five point interpolation with two 
points reflected about the stagnation point. 

USAGE : 

CALL BLUNT 2 


Description of Variable 


DUM 

, Dummy Variable 

DUM1 

, Dummy Variable 

DUM 3 

, Dummy Variable 

J 

, Array Subscript 


The following variables which are used in subroutine 
BLUNT2 are described in the section "Description of 
Variables in Common": DUEDS, G, UMAX, NEQIL, OMEGA, PE, 

PP, PZ, P10, ROWE, RZ, RO, TE , T10, UE , UEZ, X, XMUE , XSTA, 
Z, ZA. 


Subroutine CHANGE 

Subroutine CHANGE adjusts the x step size when neces- 
sary to obtain a solution at the specified values of x. 

For calculations of flows with normal injection, this 
subroutine starts and stops injection at the appropriate 
values of x, and writes corresponding messages. 

Subroutine CHANGE is also used when calculations 
are made with the instantaneous transition model. In 
this case LAMTRB is set to two, the step size is reduced 
and a message is printed. 


USAGE : 

CALL CHANGE 


Description of Variables 
IPRII = IPR(II) • 
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IPRIIM 


IPRCII-1) 


The following variables which are used in subroutine 
'CHANGE are described in the section "Description of 
Variables in Common": CQ, CQ1, DX, DXMAX , DXOLD, DX1 , 

EPSVD ,. II, UMAX, IPR,, J J , KINJ, KNOINJ, KSTOP , KTRNSN, 
LAMTRB , NIT, NI.T1, NIT2, X, XOLD, XSTA, 


Subroutine COEF 

Subroutine COEF calculates the skin friction and 
heat transfer coefficients for the flow. It calculates the 
Reynolds number, displacement thickness, momentum thick- 
ness, and other dimensionless parameters. If x is zero 
the calculations of this subroutine are omitted except 
for z/L. 


USAGE : 

CALL COEF 


CF2 

i 

Description of Variables 
Term Used in Computing CFBREX 

DSUM 

i 

Term Used in Computing CFBREX 

FAC1 

> 

Dummy Variables 

FAC 2 

> 

Dummy Variables 

HAW 

> 

Adiabatic Wall Enthalpy 

I 

9 

Array Subscript 

N 

9 

Array Subscript 

RE C FAC 

9 

Recovery Factor 

RESE 

= 

REX* EPSVD** 2 

SQREX 

> 

Square Root of REX 

STRES 


CHREY 

XMAE 

> 

Perfect Gas Edge Mach Number 
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The following variables which are used in subroutine 
COEF are described in the section "Description of Variables 
in Common"; A1B, BO, C, CF, CFBAR, CFBREX, CFE , CFINF . - 
CFR-E-S-, CFREY, CF1, CH, CHED'GE , CHOCF, CHREY, DEL, DELORF , 
DELOX, DELST, DELTA, DN, DSAXOR, DSTODL , DSTORF, DSTOTH, 
DSTOX, DSTRAX, DX, EPSVD, FC , G, GAMMA, HAFCF , HE, HESTAT, 
HG, HGFAC1, HGFAC2, HG1, HG2 , HW, IE, UMAX, K, KFS , LAMTRB , 
NEQIL, PNC, PRL , QDOT, QW, REFLEN, REINF, RETHET , REX, 

RHOFS, ROREFL, ROROE , ROWE, RO, STE/STINF, SUM, TE , THET , 
THODEL, THOREF, UE , UPS, X, XJFAC , XMUE , XMUINF, XOREFL , 

Y, YOVDEL, YOVTHT, YY, Z, ZA, ZOL, ZOREFL. 


Subroutine DELTAS 

Subroutine DELTAS calculates the transformed surface 
distance C using integration by Simpson's rule. A value 
of AC is obtained for each increment Ax from the equation 


d? 


p e p e u e r w 


23 


dx. 


The transformation factor, PNC, 


PNC = 


/ZC~ 


u p r J 
e K e w 


and the pressure gradient term, g, 


3 


2? du e 

u“ W 
e * 


are also calculated, 

USAGE: 

CALL DELTAS 


Description of Variables 
HA = X - DX/2 • 
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ROWE HA 


ROWE at HA 

RP 

= 

RO at X 

ROHA 

= 

RO at HA 

UEHA 

= 

UE at HA 

XMUE HA 

= 

XMUE at HA 

XI 

> 

Storage Value of X 


The following variables which are used in Subroutine 
DELTAS are described in the section "Description of 
Variables in Common" : ALP , BETA, DS , DUEDS , DX, HESTAT, 

NEQIL , PNC, ROWE, ROWEP , RO, TE, UE , UER02 , X, XI, XIOLD, 
XI 2, XJFAC , XMUE , XMUEP . 


Subroutine DENSIT 

Subroutine DENSIT calculates the density ratio p/p g 
corresponding to the pressure ratio P/2q and the tem- 
perature ratio T/T £. The formula for the density is 



USAGE : 

CALL DENSIT (RHO , P, T) 


Description of Variables 


G 


y, Ratio of Specific Heats (from common) 


GM1 = y-1 


P 

T 


P/2q 

T/T ref , where T r0f = Cy - D M^ 2 T m . U„ 2 /C p 


- 37 - 



RHO = p/p e 


Subroutine DERIV3 

Subroutine DERIV3 uses subroutine FD3 to generate 
the first derivative of a function which is given by the 
array F. The array of abscissa values is given by X and 
the derivative of F with respect to X is returned in the 
array FP . 


USAGE : 

CALL DERIV3 (F, X, IMAX, IMIN, FP} 

where F and X are- the arrays of ordinate and abscissa 
values , and where IMAX and IMIN are the Upper and lower 
subscripts for the .array FP. 


Subroutine EDGE 

The purpose of this subroutine is to define the 
boundary- layer edge conditions for nozzles and blunt bodies 
w-ith the pressure distribution given or for nozzles in 
which the pressure distribution is assumed to be that for 
an isentropic expansion of the gas. The. subroutine is 
called for all equilibrium gas solutions having non-constant 
edge conditions . 


Nozzle - Isentropic Expansion 

In this case, the indicator IJK is undefined for the 
first call of the subroutine and subroutine EQLDTA is 
called. Subroutine EQLDTA defines the stagnation, nozzle 
exit, and reference conditions and calls subroutine EDGE1 
which reads the expansion data on unit NT1 and- writes the 
edge conditions for the sp.ecified geometry on unit NT4. 
Unit NT4 is a scratch unit and is recreated if the problem 
is restarted. After return from subroutine EQLDTA the 
indicator IJK is defined. Counter JK and. indicator JJ 
are initialized as 0 . JK indicates the number of records 
read on unit NT4 and JJ is an indicator to prevent reading 
the end of the data set on unit NT4. 
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At the start of the solution, the first five records 
on unit NT4 are used for the interpolation of edge con- 
ditions for Z <ZJ(4) and at the end of the nozzle the 
last five records are used for Z>_ZJ (3) , Edge temperature, 
density, and viscosity are determined- from interpolation 
in subroutine SLOW. 


Pressure Distribution Given 

In this case, the pressure is a known function of Z 
and the expansion data are read directly from unit NT1 
(See Appendix A). When creating the data set on unit NT1, 
it is necessary to have two records. with values of PL less 
than the minimum value specified in the input data. 

Near the nose of a blunt body, the interpolation for 
the edge conditions Is obtained by reflection. With this 
exception the subroutine is the same for both blunt bodies 
and nozzles. It is noted that P in this section of the 
subroutine represents pressure in PSIA. This should be 
accounted for in the appropriate geometry subroutine if 
additional body shapes are to be considered. 

' It is noted that the computer program may be easily 
modified to solve two-dimensional nozzle flows. The changes 
which need to be made are the expressions for area ratio in 
subroutines EQLDTA, EDGE1 and' MACH. 


USAGE : 


CALL 

EDGE 

Description of Variables 

DUM 

> 

Dummy Variable 

H 

S= 

Log 10 (H*/RGAS) 

HE I 

y 

Dummy Variable 

HESTJ 

y 

Array of H Values 

HI 

y 

Dummy Variable 

I 

y 

Array Subscript 

IJK 

y 

Indicator (see text) 
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J 

9 

Counter, or Index 

JJ 

9 

Indicator (see text.} 

JK 

9 

Counter (see text) 

K 

9 

Counter 

M 

9 

Do Loop Index 

NERR 

9 

Dummy Variable 

P 

- 

Logic (P) , P in Atmospheres 


= 

P in PSIA 

PATMS 

9 

Pressure in Atmospheres 

PE-I 

9 

Dummy Variable 

PEJ 

9 

Array of P or PL 

PI 

9 

Dummy Variable 

PL 

= 

Log 1() P 

ROWEJ 

= 

Log 10 (p), p in Amagats 

TEJ 

9 

Array of Temperature Values 

U 

9 

Velocity, ft/sec 

UEI 

9 

Dummy Variable 

UEJ 

9 

Array of U Values 

UI 

y 

Dummy Variable 

XJ 

9 

Array of X Values 

XM-I 

9 

Dummy Variable 

XMJ 

9 

Array of Mach Numbers 

XMUEJ 

9 

Dummy Array (Not Used) 

XS 

9 

Dummy Variable 

ZI 

9 

Dummy Variable 
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ZJ , Array of Z Values 

ZZ , Dummy Array for Thermodynamic and Trans- 

port Properties 

The following variables 1 which are used in subroutine 
EDGE are described in the section "Description of Variables 
in Common": DUEDS , HESTAT, HREF, UMAX, KPD , NOSE, NT1 , 

NT 2, NT4 , NV, PE, PP , PREF , PZ , RGAS , RHOREF, RHOSTD , ROWE, 

TE, TREF, UE, UREF, X, XM, XMA, XMUE , XMUREF , XSTA, Z. 


Subroutine EDGE1 - 

The purpose of this subroutine is to match the expansion 
data obtained from the Cornell Aeronautics Laboratory (CAL) 
computer program developed by Lordi, Mates, and Moselle [1965] 
to the nozzle geometry specified. The modifications which 
were made to their computer program are described in Appendix 
A. The subroutine is called only when solutions correspond- 
ing to isentropic expansion of the gas are desired. 

The expansion data obtained from the CAL computer pro- 
gram provides the flow properties as a function of area 
ratio. Since the flow is assumed to be isentropic, the 
same expansion data are used for all nozzles having the 
same reservoir conditions. Thus, to perform parametric 
studies of nozzles with the same reservoir conditions it 
is necessary to change only the nozzle geometry input data. 

The solution obtained from the modified CAL computer' 
program are written as unformatted records on unit NT1. 

The first record written on NT1 is the stagnation or 
reservoir conditions, and it is necessary for the last 
two records to have area ratios greater than that of the 
exit area ratio of the specified nozzle. • 

To determine the edge conditions as a function of 
the axial coordinate Z and surface distance X, five-point 
Lagrange interpolation is used. In cases where the area 
ratio corresponding to the second record on unit NT1 is 
less than the area ratio at Z = Z (K) of the given nozzle, 
the flow properties are assumed to be linear functions 
of area ratio up to Z = Z (K) , Nozzle exit conditions 
are determined in Subroutine EQLDTA. The resulting edge 
conditions are written on unit NT4. 
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USAGE: 


CALL EDGE1 


A 

AO AST R 
ASTROA 
All 
H 

HSTG1 

HZ 

HI 

IMAX 

IMIN 

II 

J 

K 

KKK 

MMM 

ONEOA 

P 

PSTG1 

PZ1 

PI 

RX 

R1 


Description o£ Variables 

, Area Ratio Read from Unit NT1 

, Area Ratio at Z = Z (K) 

, Inverse of the Area Ratio at Z = Z (K) 

, Array of Area. Ratios 

= . Log 10 (H*/RGAS) 

= H at Stagnation Conditions 

= H at Z = Z(K) 

, Array of H Values 

= ITH if XM>1, = UMAX if XM>1. 

= 1 if XM<1, = ITH if XM>1 

= -1 if A is Monotone Decreasing., = 1 if A 

is Monotone Increasing 

, Array Subscript 

, Array Subscript and DO Loop Index . 

, Indicator for Return 

, Indicator for Reading- Stagnation Conditions 

, Inverse of A 

= Log^Q P , P in Atmospheres 
= P at Stagnation Conditions 
= P at Z = Z (K) 

, Array of P Values 

, Radius Corresponding to A 
, Array of RZ Values 
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u 

9 

Velocity, ft/sec 

uz 

= 

U at Z = Z(K) 

U1 

9 

Array of U Values 

XMZ 

9 

Mach Number at Z = Z fk) 

XM1 

9 

Array of Mach Numbers 

XSTA1 

9 

Sub array of Array XSTA 

XI 

= 

X Corresponding to A 

ZZ 

9 

Dummy Array of Thermodynamic and Transport 
Properties 

Z1 

- 

Z Corresponding to A 


The following variables which are used in subroutine 
EDGE1 are described in the section "Description of Variables 
in Common": HEXIT, UMAX, ITH, KRSTRT, NT1, NT4 , PEXIT, 

RZ, UE, UREF, XM, XMA, XSTA, ZA. 


Subroutine EFFMU 

Subroutine EFFMU calculates the terms in the coef- 
ficients of the differential equations which contain the 

3A o 

eddy viscosity. These terms are A Q , A q and (or A q ’) 

where 

A q = C (1 + c + ) 


for the momentum equation, or 


A = — f 1 + e + ] 

o Pr U e Pr* 


for the energy equation, and 


A n = A /C 
o o 
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and where 


C = PU/P e y e . 

•J* 

For the laminar case e =0 and -the terms reduce to 

A q = C or C/Pr 

A = 1 or 1/Pr 
o 


and 



0 or h c f ? 3 • 


The first portion of the subroutine calculates the 
terms for the laminar case. For a perfect gas C is 
calculated by Subroutine RHOMU and Pr is a constant. For 
an equilibrium gas, C and Pr are calculated previously in 
Subroutine PROP. 


The next portion of the subroutine calculates the- 
vorticity Reynolds number 


X 


v 8y 


and for calculations with a transition regime initiates 
transition and calculates the transition intermittency 
factor P where 

r = 1 - exp (-0.412f 2 ), 


E = 


4 


x -x 

o 

(x - 1) 


o 


> 


and x q is the location of the beginning of transition 
and x is a measure of the relative length of transition. 

In the third portion of the subroutine the eddy 
viscosity is computed for turbulent flow calculations 
and the terms A q> A , and A ' are. then computed. 
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USAGE : 


CALL EFFMU (LAMTRB, MOMEGY, II, DSTARK) 




Description of Variables 

APLUS 

= 

A + = 26 if KPGRAD = 0 



= 26 exp (-5.9 v w + ) if KPGRAD = 1 

= 26 [1 - 11.8 p + ]" % if KPGRAD =2 . 
+ 

- 26 { - + [exp (11.8 v w ) - 1] 

v w 



+ exp (11.8 v*)}'* if KPGRAD = 3 

W 

ARG 

> 

Dummy Variable 

DCDTH 

9S 

, where 8 - T/T e 

DELTA 

= 

<S/e VD , Boundary Layer Thickness in Stretched 
Coordinates 

DSTARK 

= 

Incompressible Displacement Thickness 

FAC 
FAC1 
FAC 2 
FAC 3 
FAC 4 

9 

Dummy Variables 
\. 

GAMF 

ss 

y. Outer Eddy Viscosity Intermittency 
Factor 

I 

9 

Array Subscript 

II 

9 

The Subscript in the EPSPL Array Where 
the Inner and Outer Eddy Viscosities are 
Matched 

LAMTRB 

9 

Indicator for Laminar or Turbulent Flow; 
1 for Laminar, 2 for Turbulent 
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MOMEGY 

} 

Indicator for Momentum or Energy Equations 
1 for Momentum, 2 for Energy 

N. . 

i 

Array Subscript 

PPLUS 

- 

p + = ~ '3x p" “+ 3 " (dimensional quantities) 

RHO 


p/p~ 

RHOWL 

= 

P W /Pco 

UPLUS 

s: 

u /u where u = /x /p (dimensional 
quantities) w 

VPLUS 

= 

+ + 

v = v /u (dimensional quantities) 

w w . 

XLAMDA 

= 

X - (x - 1) x 0 /4 (See XIBAR) 

XMU 

= 

^re£ 

XZERO 

= 

x , Location of Start of Transition 
° + 

YPLUS 

= 

y + = — (dimensional quantities) 


The following variables which are used in subroutine 
EFFMU are described in the section "Description of 
Variables in Common": ATR, AO, AOB, AOBP, C,- CF, CHI, 

CHICRT , CHIMAX, CP, CQ, DN, DX , DXOLD , EPSO , EPSPL, 

EPSVD , FC, FCN, GAMMA, IE, IM, KPGRAD , KTRANS , KVSLAW, 
NEQIL, OMEGA, PNC, PP, PREQ , PRL, PRT, ROROE , ROWE, RO, 
TH, THP , UE, VK, X, XBAR, XIBAR, XI 2, XJFAC , XK1 , XK2, 
XMUE , XN, Y. 


Subroutine EGPROP 

Subroutine EGPROP obtains the edge properties used 
in subroutine DELTAS to calculate A£ . The edge properties 
are obtained from subroutines BLUNT2, WDGFP2, or NOZLE2 
depending on the geometry specified by the variable NOSE 
which is passed through common. For a blunt nosed body, 
NOSE = 1; for a wedge or flat plate, NOSE = 2; and for a 
nozzle, NOSE = 3. 


USAGE : 

CALL EGPROP 
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Subroutine ENERGY 


Subroutine ENERGY calculates the coefficients for 
the energy equation. After, the coefficients are calculated, 
subroutine SOLVE is called and the new values of G = H/H g 
and its first and second derivatives with respect to rt 
are returned. The difference between the new and the 
former values is obtained for either the wall or the 
all points convergence test. New values of T/T and p/p e 
are calculated as are new values of the normal coordinates 
y/L and y/Le yD . 

USAGE : 

CALL ENERGY 



Description of Variables 

FAC 

= . U e Z / H e 

GFAC 

- (U e 2/H e ) C1 - V p U 

J 

, Array Subscript 

MOMEGY 

, Indicator, 1 for Momentum Equation, 

for Energy Equation 

N 

, Array Subscript 


2 


The following variables which are used in subroutine 
ENERGY are described in the section "Description of 
Variables in Common": ALP, ALP1, AO, AOB, AOBP, Al, 

A2 , A3, A4 , C, CCRNI , CP, CRNI , Cl, C1N, DIF, DIFF, 

DIF1 , DN, D STARK, EPSVD, El, FC , FCN, F2NN, HALP, HE, 
IADW, IE, IM, KEP, LAMTRB , NC , NEQIL , PNC, PREQ, PRL , 
ROROE, TB, TC, TCN, TH, THP , Tl, TIN, T1NN, T2, T2N, 

T2NN , T2N1, T21, UE , VC , X , XI , XN , Y , YY . 


Subroutine EQLDTA 

In this subroutine, the stagnation, nozzle exit, 
and reference conditions are defined. The subroutine 
is called only when solutions corresponding to isentropic 
expansion of the gas are desired. 
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The expansion data are obtained as described in 
Appendix A. The data from this program are written as 
unformatted records on unit NT1. To provide . the. n exes.- . 
-sa-ry -data- for five -point interpolation, the area ratios 
of the last two records on unit NT1 must exceed the 
exit area ratio of the given nozzle geometry. The first 
record on unit NT1 is the stagnation or reservoir con- 
dition. 


USAGE : 

CALL EQLDTA 


Description of Variables 


A 

9 

Area Ratio Read from Unit NT1 

AEXIT 

9 

Exit Area Ratio of Given Geometry 

All 

9 

Array of A Values 

H 


Log 10 (H*/RGAS) 

HI 

9 

Array of H Values 

J 

9 

Array Subscript 

NERR 

9 

Dummy Variable 

P 

9 

L°gi 0 (P) , P in Atmospheres 

P'l 

9 

Array of P Values 

U 

9 

Velocity, ft/sec 

U1 

9 

Array of U Values 

XM1 

9 

Array of Mach Numbers 

ZZ 

9 

Dummy Array of Thermodynamic and Transport 
Properties 


The following variables which are used in subroutine 
EQLDTA are described in the section "Description of 
Variables in Common": CX, HE, HEXIT, HFS, HREF, HSTAG , 

UMAX, ITH, NT1 , NT 2 , NV, PEXIT, PFS, PREF, PSTAG, P10, 
RGAS , RHOFS, RHOREF, RHOSTD , RHOSTG , RZ , TFS, TREF ,, TSTAG , 
T10 , UFS , UREF, XM, XMA, XMUFS, XMUINF, XMUREF . 
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Subroutines FD3 and FD5 


Subroutines FD3 and FD5 use the first derivative of 
the Lagrangian interpolating polynomial of second and 
fourth order respectively to .provide the first derivative 
of the function F at point X. The returned value is 
denoted by FX, The interpolating polynomials are described 
in the descriptions of subroutines INTER3 and INTER5 . 

USAGE : 


CALL 

FD3 

(X, 

XI, 

X2 , 

X3 , FI, 

F2 , 

F3, 

FX) 

CALL 

FD5 

(X, 

XI, 

X2 , 

X3 , X4 , 

X5 , 

FI, 

F2 , F 3 , F4, F5 , FX) 


where XI, X2, etc. are the abscissa values, and where FI, F2, 
etc. are the ordinate values. 


Subroutine GEOM 

This subroutine obtains the edge properties at the 
initial value of x for the geometry specified by the 
variable NOSE which is passed through common. The edge 
properties are obtained from subroutine BLUNT1 for a 
blunt nosed body (NOSE = 1), from subroutine WDGFP1 for 
a wedge or flat plate (NOSE = 2), and from subroutine 
N0ZLE1 for a nozzle (NOSE = 3) . 


USAGE : 

CALL GEOM 


Subroutine INIT 

Many variables are given fixed initial values in the 
program before the' marching .integration procedure is 
begun. The non-subscripted variables are given the initial 
values in subroutine INIT. 

USAGE : 


CALL INIT 
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Description of Variables 


JT 


Array Subscript 


The following variables which are used in subroutine 
IN'IT are described in the section "Description of Variables 
in Common": BO, CCRNI , CF, CHIMAX, CMSTD , CRN I , CSTAR, CX, 

DS, DX, DXOLD, DX1, El, FF , G, GAMEFF, GAMMA, HGFAC1 , 
HGFAC2, IE, UMAX, IM, IPRNT, ISTOP, J J , KEP, KFS , KSTOP , 
KTPW, KTW, LAMTRB , NEQIL, NEQL, NIT, NITTOT, NOSE, 

NRSTRT , PR, PRL , QW, R, RGAS , RHOFS, RHOSTD , SUM, TFS , 

TSTAG , TW, TWZ , UFS, VW, X, XI, XIBAR, XIOLD, XI 2, XJAY, 
XJFAC , XM, XMA, XOLD, XSTA, Z. 


Subroutine INTER3 

Subroutine INTER3 uses a second-order Lagrangian 
interpolating polynomial interpolating on the points x-^ , 
X 2 , and x^, with the corresponding function values f^, 

f 2 , and f^ to provide a value F corresponding to x. 

The general form of the polynomial is 


F(x) 


3 

=1 f k L.(x) ' 
k=l K K 


where 


Lj, (x) is given by 


Lv (x) = j : 


3 x - x_ 


m 


1 x, - x 
m=l k m 


m^k 


USAGE : 

CALL INTERS (X, XI, X2, X3, FI, F2, F3, FJ 


where XI, X2, and X3 are the abscissa values and FI, F2, 
and F3 are the function values. 
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Subroutine INTER5 


Subroutine INTER5 uses a fourth-order Lagrangian 
interpolating polynomial interpolating on the points 
x^, X£, Xj, x^, and x,- with the corresponding function 
values f. , f 7 , f,, f . and f,- to provide a value F cor- 
responding to x. 

The general form of the polynomial is 


F(x) f]t Llc M 


where 

L^. (x) is given by 


L k (x) = TT 

m=l 

mfk 


x_ 


m 


x. 


m 


USAGE : 

CALL INTER5 (X,. XI, X2, X3, X4, X5 , FI, F2, -F3 , F4, F5, F) 

where XI, X2, etc. are the absissa values and FI, F2, etc. are 
the function values . 


Subroutine INTERP 

Subroutine INTERP uses function TLU to linearly 
interpolate in the array F2 for the value FF corresponding 
to the value XX in the array XN. If XX is not within the 
range of XN, a message is printed and FF is set equal to 
F2(IE) where IE is the size of the arrays. XN must be a 
strictly increasing array. . 


USAGE : 

CALL INTERP (XX, XN , F2, IE, FF) 
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Subroutine- INTRP5 


Subroutine INTRP5 uses five-point interpolation to 
•obtain- a- value FO' in the array FI corresponding to the 
value XO in the array XI. The array XI can be either 
monotone increasing or monotone decreasing. 


USAGE : 

CALL INTRP5 (XO, XI, FI, IMAX, IMIN, II, FO) where 
XI and FI are the arrays of coordinate values, IMAX and 
IMIN are the maximum and minimum values allowed for the 
subscripts of the arrays, and II is an indicator (I1<0, 

XI is monotone decreasing; I1>_0, XI is monotone increasing). 


Subroutine MACH 

The first time subroutine MACH is called, a table 
of MACH numbers is generated. ' If a pressure, distribution 
is not part of the input data (KPD ~ 0) the MACH numbers 
are calculated from the area ratios . In the range M = 0 
to M = 2 the MACH number increment is 0.01. For M 2 
the MACH number increment is 0.05. If KPD^O, the table 
of MACH numbers -is generated from the pressure distribution 
table. 

After the MACH number table has been generated, five- 
point interpolation is used to calculate the MACH number 
which corresponds to the values of z and r passed through 
the argument list. 


USAGE : 

CALL MACH (X,R,RT,' ZTH) 


Description of Variables 


A 

= 

y + 1 

AR 


Area Ratio 

AR1 

i 

Area Ratio Array 

B 

= 

Y - 1 
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C 

= 

A/2B 

DXM1 

3 

Mach Number Increment 

FAC 

3 

Dummy Variable 

FAC1 

3 

Dummy Variable 

J 

3 

Array Subscript 

JKL 

3 

Indicator, Undefined for First Call, Then 
Set to 235 

N 

3 

Array Subscript 

R 

3 

Local Radius 

RT 

3 

Throat Radius 

X 

3 

Local Axial Coordinate 

XM1 

3 

Mach Number Array 

XTH 

3 

Axial Coordinate . of Throat 


The following variables which are used in subroutine 
MACH are described in the section "Description of Variables 
in Common": G, UMAX, KPD , PZ,_XM, ZA. 


Subroutine MOMENT 

The solution of the momentum equation is obtained 
in subroutine MOMENT. The coefficients of the partial 
differential equation are calculated and new values of 
F = u/u g an d the first and second derivatives of F with 
respecr to n are obtained from subroutine SOLVE. The 
difference between the new and the former values is 
obtained for either the wall or the all points convergence 
test. The derivative of F with respect to x is also cal- 
culated. 


USAGE : 

CALL MOMENT 
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Description of Variables 


MOMEGY 
• N 


Indicator , __ 1 for* Momentum- -Equation, 2’ 
fo'r Energy Equation 

Array Subscript 


The following variables which are used in subroutine 
MOMENT are described in the section "Description of Vari- 
ables in Common": AO, AOB , AOBP, Al, A2, A3, A4, BETA, 

C, CCRNI, CP, CRN I , DIF, DIFF, DIF1, DIF 2, DS , DSTARK , El, 
FC, FCN, FCP , FF, FI, FIN, FINN, F2, F2N, F2NN, F2N1, IE, 
IM, KEP, LAMTRB , NC, TH, VC, X, XI. 


Subroutine NOZLE1 

This subroutine calculates the edge and reference 
conditions at the initial value of x for a nozzle. For 
a perfect gas, the properties are obtained from perfect 
gas relations. For an equilibrium gas, the properties 
are calculated using the data on the expansion and gas 
property tapes 1 


USAGE : 

CALL NOZLE1 


Description of Variables 


CPRIME 

= 

CPRIM 

DUM 

y 

Dummy Variable 

DUM1 

y 

Dummy Variable 

DUM2 

y 

Dummy Variable 

HESTJ 

y 

Array of HORL Values 

HFSL 

y 

Free -stream Value of HORL 

HI 

y 

Dummy Variable 

HORL 

= 

Log 10 (HVRGAS) 
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IJK 

9 

Indicator, Undefined for First Call, then 
Set to 231 

J 

9 

Array Subscript 

NERR 

5 

Dummy Variable 

PATMS 

9 

Pressure in Atmospheres 

PEI 

9 

Dummy Variable 

PI 

9 

Dummy Variable 

PJ 

9 

Array of PL Values 

PL 

= 

Log-^gP, P in Atmospheres 

TE1 

9 

-Dummy Variable 

UI 

9 

Dummy Variable 

XMACHS 

= 

M 2 

CO 

XMI 

9 

Dummy Variable 

XMJ 

9 

Array of Mach Numbers 

ZZ 

9 

Dummy Array for Thermodynamic and 
Transport Properties 


The following variables which are used in subroutine 
N0ZLE1 are described in the section "Description of 
Variables in Common": ALP, BETA, CPRIM, CSTAR, CX , DUEDS , 

G, HE, HESTAT, HFS , HREF, HSTAG , UMAX, ITH, KPD, NEQIL , 
NT1 , NT 2, NV, OMEGA, PE, PESO, PFS, PNC, PP, PREF, PSTAG, 
PZ, P10, REINF, RGAS , RHOFS, RHOREF, RHOSTD, RHOSTG , ROWE, 
ROWEP , RZ, RO, SCF, TE , TESO, TFS , TREF, TSTAG , T10, UE , 
UER02 , UEZ, UFS , UREF, X, XM, XMA, XMUE , XMUEP , XMUFS, 
XMUINF , XMUREF, XMUSO, XSTA, Z, ZA. 


Subroutine NOZLE2 

For a nozzle, the edge properties required by sub- 
routine DELTAS to calculate AC are provided by subroutine 
NOZLE2. For a perfect gas, the properties are calculated 


- 55 - 



from perfect gas relations. For an equilibrium gas, the 
properties are obtained from subroutine EDGE. 


USAGE: 

CALL N0ZLE2 


Description of Variables 
J , Array Subscript 


The following variables which are used in subroutine 
N0ZLE2 are described in the section "Description of Vari- 
ables in Common": DUEDS, G, UMAX, ITH, NEQIL , OMEGA, PE, 
PP, P10, ROWE, RZ, RO, TE, T10, UE , UEZ , X, XM, XMUE , XSTA, 
Z, ZA. 


Subroutine PRFILE 

Subroutine PRFILE calculates the array of n values, 
XN, which corresponds to the values of IE, ETAINF, and 
XKETA. The grid spacing is given by Art ^ = K where 

K corresponds to XKETA and thus at the i-th grid point 
n i = An x i = 0, 1, 2, 3, ...N (N=IE-1) 


where An^ is given by 


Ari i ■ i. 


K- 1 
K N -1 


The initial profiles of velocity and enthalpy (F and 
G) are calculated from the formulas 


F = 1 


exp (-n) 


and 


.G = H /H + 
w o 


Cl - h w /h 0 )f. 
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The derivatives of F and G are also calculated as are 
initial profiles for C, CP, c + , y/6, and y/0. Further, 
the boundary conditions at the outer edge of the boundary 
layer are set in this subroutine. 


USAGE : 

CALL PRFILE 




Description of Variables 

DETA1 

= 

Ari at wall 

N 

) 

Array Subscript 


The following variables which are used in subroutine 
PRFILE are described in the section "Description of Vari- 
ables in Common": BO, C, CP, DN, EPSPL, ETAINF, FC, FCN, 

FCP , FI, FIN, FiNN, F2, F2NN , IE, IM, PNC, TC, TCN, Tl, 
TIN, T1NN, T2, VC, VW, XKETA, XN, Y, YOVDEL , YOVTHT . 


Subroutine PROP 

This subroutine is called by subroutines ENERGY and 
MAIN for all equilibrium gas solutions. The subroutine 
uses the correct values of F and T to call subroutine 
SLOW. Subroutine SLOW returns the corresponding current 
values of density, temperature, viscosity, and Prandtl 
number. 


USAGE : 

CALL PROP 



Description of Variables 

HL 

, Log 10 (HOR) 

HOR 

, Local Static Enthalpy/RGAS , Degrees Kelvin 

HSTAT 

, Locat Static Enthalpy, ft^/sec^ 

HSTGL 

2 2 

, Local Stagnation Enthalpy, ft /sec 

J 

, Array Subscript 

NERR 

, Dummy Variable 
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p 

9 

Pressure in Atmospheres 

PL 

9 

L Og 10 (P) 

RHOIE 

9 

Density at Edge of Boundary Layer In 
Amagats 

THIE 

9 

Temperature at Edge .of Boundary Layer in 
Degrees Kelvin 

ULOC 

9 

Local Velocity, ft/sec 

XMU 

9 

2 

Viscosity, lb-sec/ft 

XMUIE 

9 

Viscosity ? at Edge of Boundary Layer, 
lb-sec/ ft 

ZZ 

9 

Dummy Array for. Thermodynamic and Transport 
Properties 


The following variables which are used in subroutine 
PROP are described in the section "Description of Vari- 
ables in Common": C, FC, HE, HREF, IE, NT2, NV, PE, PR, 

PREF, PREQ, RGAS , ROROE , TC, TH, UE , UREF. 


Subroutine READ IN 

Subroutine READIN provides the input of data for the 
program. The input data may come either from cards or 
from a restart tape. The first card gives the restart 
station number and the second card gives the tape unit 
plumbers. If the restart station number is zero, the input 
data is from cards and is as described in the section 
"Description of Input Data". If a restart station number 
greater than zero is used, the input data comes from the 
restart tape, and only the two cards described above are 
read. With the exception of the two variables on* the 
first card and some of the arrays (which are not needed 
for a restart), all variables which are in COMMON in the 
program are written on the restart tape. The order in 
which the variables are written on the restart tape is 
as they appear in the COMMON statements. 

: The restart tape is also written by subroutine 

READIN. The array LABEL and the variables in ARRAY 2 are 
written at the beginning of the tape; the other variables 
are written every NRSTRT-th station. The variable KREADN 
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controls which part of the subroutine is used: for a 

value of one, the input data are read; for a value of 
two, the initial data are written on the restart tape, 
and for a value of three the station data are written on 
the restart tape. 

If the input data is from the restart tape, subroutine 
WRITE1 and WRITE 2 are called to print the data which 
has been read from the tape. Subroutine WRITE2 prints the 
data from the last converged solution written on the tape 
(corresponding to K-KRSTRT). When the restart tape is 
written, a message is printed giving the current value 
of K and the next value of K for which the restart tape 
will be written. 


USAGE : 

CALL READIN (KREADN) 


J 

KREADN 

KRITE1 


' Description of Variables 
Array Subscript 

Indicator for Part of Subroutine Used 

Indicator for Part of Subroutine WRITE1 
to be Used 


LST 


Alphmeric Variable, Assigned Value of 
'LAST' in a DATA Statement 


All other variables are described in the section 
"Description of Variables in Common", except for LABEL 
and LSTC which are described in the section "Description 
of Input Data". 


Subroutine RBFSUB 

Subroutine REFSUB computes the free stream Reynolds 
number for nozzle flow calculations and for other cal- 
culations for which the input value of Re^ is zero. It 
also calculates the dimensional quanties needed for the 
heat transfer calculation. Values of p , u . and y are 
needed to calculate Re . The value of y is obtained 
from T and reference values of viscosity and temperature 
using Sutherland's law. The value of u ffl is obtained from 
T ro and M^, and p ra Is obtained from P ro and T^. If the value 
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or T ot is not specified in the input data, it can be 
calculated from and p Q or from M m and T o respectively. 

- For a ^nozzle , M^’i's tahen to be the exit MACH number 
and is calculated from the nozzle geometry in subroutine 
MACH. For other geometries, M needs to be part of the 
input data. If the indicator KFS is zero this subroutine 
is bypassed as are the other calculations in the program 
using dimensional quantities [one exception is that sub- 
routine INIT will calculate u^ from M^ and T m if u^ is 
zero) . 


USAGE : 

CALL REFSUB 


Description of Variables 

The following variables occur in this subroutine and 
are described in the section "Description of Variables in 
Common". AMUINF, AMUREF, G, PFS, PSTAG, R, REINF, RHOFS, 
SCF , TFS , TREF1 , TSTAG , UFS, XMA. 


Subroutine RHOMU 

Subroutine RHOMU calculates the density-viscosity 
product C where 


C - ^ 


If w f 0, the power law is used, i.e. 


C = a 10 " 1 where 6 = T/T . 

e 


If a) = 0, Sutherlands law is used, i.e. 


0.5 1 + VK 

0 + VK 


xtfhere VK = C* / T g and C* = 198. 6°K. Also: dC/d0 is calculated. 
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USAGE: 

CALL RHOMU (OMEGA, TH, C, DCDTH, VK) 
where OMEGA = w, TH = T/T and DCDTH = dC/de 


Subroutine SLOW 

The purpose of this subroutine is to determine the 
thermodynamic and transport properties by interpolation 
in tables written on unit IT. The data on unit IT are 
obtained as described in Appendix B; 

The solution obtained for the thermodynamic and 
transport properties at a given pressure are written on 
unit IT as unformatted records. For each pressure, two 
records are written. The first record contains the pres- 
sure and the number of steps in the table of thermodynamic 
and transport properties at the given pressure. The second 
record contains the arrays of temperature, enthalpy, density, 
viscosity, specific heat, and Prandtl number in that order. 
These arrays are dimensioned by 100 in the generating pro- 
gram. The records are written with P decreasing and the 
corresponding table of thermodynamic and transport pro- 
perties is written with temperature decreasing. Five sets 
of these records are read in this subroutine and stored 
as the array X and the three dimensional array Y. 

A table of thermodynamic and transport properties 
at the desired pressure is obtained by five point inter- 
polation in the array Y and stored in the two dimensional 
array Y2. Local values of the thermodynamic and transport 
properties are obtained by five-point interpolation in the 
array Y2 for a given temperature or enthalpy. 


USAGE : 

CALL SLOW (XX, Z, II, SI, IT, NV, NERR) 

Description of Variables 
I , Array Subscript 

IJK , Indicator for Initial or Subsequent Call 

to Subroutine, Undefined for First Call, 
Then Set to 301 
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IT 

II 


JJ 

J1 


K 

L 

MM 

NERR 

NV 

X 

XX 

XXI 


, Tape Unit Number (NT2) 

, Index of Array Z Indicating the Point. in . 

- 'Array Y'2‘ at which Interpolations are to 
be Made 

, Indicator For Number of Steps in Property 
Table 

, Index of Array Z Indicating the Property 
Value which is to be Returned by the 
Subroutine 

, Array Subscript 

, Array Subscript 

, Array Subscript 

, Dummy Variable 

, Index which Indicates the Number of Arrays 
Written on Unit IT 

, Array of Log-^g (P) , P in Atmospheres 

, Local Value of X at which Interpolations 

are made for Array Y2 

, Value of XX for the Previous. Call of the 
Subroutine 


XI 

Y 

Y2 

Z 


, Dummy Variable 

, Three Dimensional Array of Thermodynamic 

and Transport Properties 

, Two Dimensional Array of Thermodynamic 
and Transport Properties at XX 

, Array of the Calling and Returned Argument 
where : 

Z (1) , Temperature, °K 

Z (2) , Log 10 (H*/RGAS), H*/RGAS has units of °K 
Z(3), Log-, n Chens ity) , Density in Amagats 
Z (4) , Viscosity, lb-sec/ft 2 
Z (5), Specific Heat/RGAS 
Z(6), Praridtl Number 
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Subroutine SOLVE 


Subroutine SOLVE calculates the solution for a 
general parabolic partial differential equation when the 
equation is written in the "standard" form 


*nn + A l- *>1 + a 2 * + a 3 + a 4 h = °- 

In order to obtain a solution for the above equation, 
values of <J> and the first and second derivatives ■ of <f> 
with respect to r| from a previous iteration or from a 
previous x station are required. These are passed 
through the argument list as the arrays Wl, WIN, and 
WINN. The new values of <p and the first and second 
derivatives are returned through the argument list as 
the arrays W2, W2N, and W2NN. 


USAGE : 

CALL SOLVE (WINN, WIN, Wl, W2NN , W2N , W2 , El, Fll, CRNI) 


A 

B 

CC 

D 

E 

El 

F 

Fll 

KON 

N 

Wl 

WIN 


3 


3 


3 


3 


3 


3 


Description of Variables 
Matrix Inversion Coefficient 
Matrix Inversion Coefficient 
Matrix Inversion Coefficient 
Matrix Inversion Coefficient 
Array of Matrix Inversion Coefficients 
Value of E at Wall 

Array of Matrix Inversion Coefficients 
Value of F at Wall 
Array Subscript, Descending Order 
Array Subscript 

Value of <J> at Previous Station 
3(f>/3r| at Previous Station 
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WINN 


2 2 

3 <|>/3n at Previous Station 
W2 , New Value of <j> 

W2N , New Value of 3<}>/3ri 

W2NN , New Value of 3 ^ tf>/ 8 ri 

The following variables which are used in subroutine 
SOLVE are described in the section "Description of Variables 
in Common": Al, A2, A3, A4, CRNI, DN, DS, IE, IM, XN. 


Function TLU 

Function TLU searches in the array X for the two 
values which bracket XSTAR and linearly interpolates for 
the corresponding value in the array Z. The returned 
value is TLU. If XSTAR is not within the range of the 
array X, TLU is set equal to zero and the error flag is 
set equal to one. The array X must be strictly increasing. 


USAGE : 

TLU CNTABLE, Z, X, XSTAR, NFLAG) 

where NTABLE is the dimension of .the arrays Z and X and 
NFLAG is the error flag. 


Subroutine VISCO 


Subroutine VISCO calculates the viscosity ratio p/p 
corresponding to the temperature ratio T / T re £- If to = 0 
the power law is used, i.e. 


ref 


^ref ref 

If (o = 0, Sutherlands law is used, i.e. 


p _ l+C* r T ,1.5 

"ref ' ' r /'W c ' tT ref 
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USAGE : 


CALL VISCO (OMEGA, T. XMU) 

where OMEGA = w, f and XMU are the temperature and 
viscosity ratios, and C 1 = C*/T r is provided through 

TGI r\ 

common as CPRIM. C* = 198. 6°R and T f = (y-1)M co = 
U„ 2 /Cp. 


Subroutine WALL 

This subroutine calculates the temperature and 
enthalpy boundary conditions at the wall. If a wall 
temperature distribution is part of the input data, 
five point interpolation is used to obtain the value 
of T w corresponding to the local value of x. If KCQ 
is non- zero, five-point interpolation is used to obtain 
the local value of CQ. For an adiabatic wall, a value 
of the wall enthalpy is calculated such that the enthalpy 
gradient is zero at the wall. For a non-adiabatic wall, 
the wall enthalpy is specified by the wall temperature. 


USAGE : 

CALL WALL 


Description of Variables 

Cll , Intermediate Variable used in computing GW 

GW = H /H 

w e 

H H *, ft 2 /sec 2 

w * ' 

HOR = H */RGAS), °K 

w 

HORL = L °g 10 H0R 

HORLOG = Log^ (H w /RGAS) 

JT = Array Subscript 

NERR , Dummy Variable - 

PATMS , Pressure in Atmospheres 
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PLOG 


PSTR 

TSTR 

ZZ 


L °gio P 

2 

, Pressure, lb/ft . 

, Wall Temperature, °K 

, Dummy Array for Thermodynamic and Transport 

Properties 


The following variables which are used in subroutine 
WALL are described in the section "Description of Variables 
in Common": ALP1, BO, CONVRG, CQ, CQZ, DIF, DN, DUEDS, 
EPSVD, FINJ , HE, HREF, HW, IADW, UMAX, KCQ, KINJ, KNOINJ, 
KTW, NEQIL, NT 2, NV, PE, PREF, R, ROWE, RO, TB, TC, TE, TH, 
TREF, TSTAG , TW,, TWZ, T10, T2, T21, UE, VW, X, XJFAC, XMUE , 
XSTA, 


Subroutine WDGFP1 

This -subroutine calculates the edge and reference 
conditions at the initial value of x for a wedge or a flat 
plate. For a perfect gas the properties are obtained from 
perfect gas relations. For an equilibrium gas, the pro- 
perties are calculated using the data on the gas property 
tape. 


USAGE : 

CALL WDGFP1 


Description of Variables 


CPRIME 

ss 

CPRIM 

HOR 

= 

H*/RGAS, °K 

HORL 

- 

Log 10 (HOR) 

J 

5 

Array Subscript 

NERR 

9 

Dummy Variable 

PATMS 

9 

Pressure in Atmospheres 

SI NTH 

9 

Sin (ANGLE) 
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TDGRK 

9 

Temperature, °K 

XMACHS 

9 

w 2 

M 

CO 

XMTHSK 

9 

M ra Sin (THSHOK) 

XMTHSQ 

9 

Square of XMTHSK 

zz 

9 

Dummy Array for Thermodynamic and Trans- 
port Properties 


The following variables which are used in subroutine 
WDGFP1 are described in the section "Description of 
Variables in Common" : ALP, ANGLE, BETA, CPRIM, CSTA-R, 

CX, DUEDS, G, HE, HESTAT, HFS , HREF, HSTAG, NEQIL, NT2 ,. 
NV, OMEGA, PE, PESO, PFS , PNC, PP , PREF , PSTAG, P10, R, 
RGAS , RHOFS, RHOREF , RHO.STD , RHOSTG , ROESO, ROWE, ROWEP, ■ 
RO, TE, TESO, TFS , THSHOK, TREF, TSTAG , T10, UE , UER02, 
USEO, UFS , UREF, XMA, XMUE , XMUEP , XMUFS, XMUINF, XMUREF , 
XMUSO . 


Subroutine WDGFP2 

For a wedge or for a flat plate the edge properties 
required by subroutine DELTAS to calculate A £ are pro-, 
vided by subroutine WDGFP2. The properties are constant 
and have been computed in subroutine WDGFP1. A^value is 
calculated for the variable Z; to the other variables are 
assigned the values computed in subroutine WDGFP1. 


USAGE : 

CALL WDGFP2 


Description of Variables 

The following variables which are used in subroutine 
WDGFP2 are described in the section "Description of 
Variables in Common": ANGLE, DUEDS, ROESO, ROWE, RO, TE, 

TESO, UE, UESO , X, XMUE, XMUSO, Z. 
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Subroutine WRITE1 


Subroutine WRITE1 provides two sections of output . 

T-he first' section i’s' the input data and other data 
initialized by the program. The integer ^quantities are 
written first in the same order as they appear in the 
input followed by the injection parameters CQ and FINJ . 

The next data written are the free-stream quantities. 

If the indicator KFS is zero, the free-stream pressure 
and density and the stagnation pressure and temperature 
are not written. If the reference temperature, TREF1, 
is zero, the reference temperature, the reference vis- 
cosity, and the free stream viscosity are not written. 

The transition parameters are then written and are fol- 
lowed by a group of variables, most of which are from 
the program input and appear in approximately the same 
order. Next are written the integer arrays which con- 
trol the values of x at which a solution is obtained 
and at which full profile data is to be written. Finally, 
the values of axial distance, radius, surface distance, 
surface pressure, non-dimensional edge velocity, surface 
temperature, and injection rate distribution are written. 

The second section of the subroutine is used when 
calculations are made using the equilibrium gas model. 

The stagnation, free-stream and reference conditions • 
which have been recomputed for the equilibrium gas are 
written following the message "BEGIN EQUILIBRIUM GAS 
SOLUTION". 


USAGE : 

CALL WRITE1 (KRITE1) 


Description of Variables 
J , Array Subscript 

KRITE1 , Indicator for Section of Subroutine to 

be Used, 1 for First Section, 2 for 
Second Section 

The other variables which appear in this subroutine 
are described in the sections "Description of Output" and 
Description of Variables in Common". 
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Subroutine WRITE 2 


Subroutine WRITE2 provides the output of computed 
results after a converged solution is obtained. The out- 
put is in two sections. The first section is written at 
every station at which a solution is obtained. The second 
section is written for specified values of- x. The- first 
line of output contains the values of geometry related 
variables (such as x, z, and , the pressure gradient 
term, B , the number of iterations, and the station counter, 
K. The second line contains the non-dimensionalized edge 
conditions (such as T e , M e , and p e ) • The third line con- 
tains the skin friction and heat transfer in the transformed 
coordinates, the subscript in the eddy viscosity array 
where the inner and outer eddy viscosities are matched, 
and the cumulative total of the number of iterations. The 
fourth line gives the first and second derivatives of 
the velocity at the wall and at the second grid point from 
the wall. The remainder of the first section is omitted 
if x = o. The next line gives transition parameters and 
the following line contains the Reynolds number or the 
Reynolds number, the heat transfer rate, and two dimensional 
heat transfer coefficients. In the remaining lines in the - 
first section are skin friction coefficients, Stanton 
numbers, the boundary layer thicknesses, and quotients of 
boundary layer parameters. 

In the second section of the output, some of the 
variables which are functions of the normal coordinate 
are written. The output of this section_contains n, y, 
y/8 y/6, F(=u/u e ), 3F/3n, 3 2 F / 3r| 2 ? e +, 3A 0 /3n, G (=H/H e ) , 
9G/3n, V, T/T e , p/p e , C (=py/p e Ue) , 3C/3q, and y 

After the second section of output is written, sub- 
routine READIN is called with KREADN=3 to write the 
station data on the restart tape if NT3/0 and if K=KTPW. 

The first derivative of F at the wall is then tested for 
a negative value and if 3F/3ri at the wall is negative, it 
is assumed that the flow has separated, a message is 
written, and the program is stopped. 

USAGE : 

CALL WRITE 2 


Description of Variables 


II 


Counter or Subscript for Array IPR 



IPRNT ' 

> 

Counter or Subscript for Array IPRFL 

KL 

> 

The values of p and the_ functions -.of -n 
■ are written at every KL - th grid point 

KREADIN 

> 

Specifies READIN is Called to Write the 
Station Data on the Restart Tape 

XOLD 

y 

Previous Value of x . 


The above variables except for KREADIN are in common 
and thus are also described in the section "Description 
of Variables in Common". The other variables which appear 
in this subroutine (except for N, an array subscript) are 
described in the sections "Description of Output" and 
"Description of Variables in Common". 


Subroutine ZRO 

Subroutine ZRO uses subroutine INTERS to interpolate 
in the arrays ZA and RZ for the values Z and RO correspond- 
ing to the value X2 in the array XSTA. The arrays RZ, 

XSTA, and ZA contain values of radius, surface distance, 
and axial distance respectively for axially symmetric 
geometry .' 


USAGE : 

CALL ZRO (JJ, X2 , Z, RO) 

where JJ is the dimension of the arrays, Z and RO are the 
returned values, and the 'arrays RZ, XSTA, and ZA are 
provided through common. 
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DESCRIPTION OF INPUT DATA 


In the description of the input data, a card number 
is given first, followed by the list of variables on that 
card and the format under which the card is read. Then 
each variable in the list is described.,^ At the end of 
this section are coding forms which may be used for cod- 
ing the input data. 

Card 1. KRSTRT, NRSTRT (4(7X,I3)) 

KRSTRT, Restart Indicator; Zero for Starting New 

Solution; Greater Than Zero Restarts Solution, 
■ Next Solution Obtained at K = KRSTRT + 1 

NRSTRT Increment in K for Which Restart Tape is 
Written 

Card 2. NT1, NT2 , NT3 , NT 4 (4(8X,I2)) 

NT1, Tape Unit Number for Expansion Tape 

NT2, Tape Unit Number for Gas Table Tape 

NT3, Tape Unit Number for Restart Tape 

NT4, Unit Number for Scratch Tape 

For a perfect gas case, NT1, NT2, and NT3 are zero. 

If NT3 = 0, the restart tape is bypassed. 

Card 3. LABEL (18A4) 

Alphameric Data for Identification- of the Case. 

Printed on the First Page of Output. 

Card 4. NOSE, LAMTRB , KTRANS , KTRNSN (4C8X,I2) 

NOSE, Indicator for Geometry, 1 for a Blunt Nose, 

2 for a Wedge or a Flat Plate, 3 for a 
Nozzle 

A value of 0 is reset to 1. 

LABTRB, Indicator, 1 for Laminar Flow, 2 for Turbu- 
lent Flow 

A value of 0 is reset to 1. 
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KTRANS, Indicator for Transition Regime, 0 for No 
Transition or Instantaneous Transition, 1 
for Transition Regime (L AMT RB Must be L. ). 

KTRNSN, Subscript for XSTA Array Giving Value of x 
at Which Instantaneous Transition Occurs 

A value of 0 is reset equal to UMAX and a 
value greater than UMAX is reset equal to 
UMAX. 

Card 5. IADW, KTW, KPD, KFS (4C8X,I2)) 

IADW, Indicator, 1 for Adiabatic Wall, 0 for 

Non-adiabatic Wall 

If IADW f 0, BO is set equal to 1.0. 

KTW-, Indicator, 0 for Constant Wall Temperature, 

Non- zero for Wall Temperature Distribution 
Input 

KPD, Indicator, 0 for Pressure Computed by 

Program Based on Nozzle Area Ratio, Non- zero 
for Pressure Distribution Input 

KFS, Indicator, Non- zero for Computing in the 

Program Dimensional Free-stream, Stagnation 
and Reference Values and Dimensional Heat 
Transfer and Heat Transfer Coefficients, 0 
to Bypass Computing Dimensional Quantities 

Card 6. NIT1, NIT2, NIT3, NC (4(8X,I2)) 

NIT1, NIT2, and NIT3 are used in conjunction with 
NIT (the number of iterations) to control the 
variation in the x step size. 

NITl, After solution converges, Ax is doubled if 

NIT is less than or equal to NITl . 

A value of 0 is reset equal to 3,. A value 
less than zero is reset equal to 0. 

NIT2, After solution converges, Ax is halved if 
NIT is greater than or equal to NIT2. 

A value of 0 is reset to 6. 
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NIT3, If NIT = NIT3, Ax is halved, X and XI are 

recomputed and the iteration loop is 
restarted with the smaller values of X 
and XI . 

A value of 0 is reset to 9. 

NC, Specifies Convergence Test, 0 for Test on 

Derivatives at Wall, 1 for- Test on 
Functions at all Points in Profile 
Recommended Value 1 , 

Card 7. IE, KEND , UMAX, ITH (4(7X,I3)) 

IE, Number of Grid Points in q Direction 

(Program Dimensioned for IE = 101 Which 
is the Recommended Value) 

KEND, Upper Index on K (the Station Counter) 

Recommended Value, 300-600 

UMAX, Number of Values in Geometry, Pressure 

and Temperature Distribution Arrays; Arrays 
Dimensioned for 500 Values (UMAX is also 
obtained from the number of cards read.) 

ITH, ' Subscript in the Geometry Arrays of the 
Throat Location (For NOSE f 3, the value 
is arbitrary.) 

Card 8. KADETA, KL, IPFL, IPRINT (4(8X,I2)) 

f 

KADETA, Indicator; if Zero, ETAINF is Held Constant, 
-if Non- zero "''ETAINF can be Increased 

KL, Index for Profile Output DO Loop, 1 Gives 

Output for Each Grid Point, 2 for Every 
Second Grid Point. 

A value of 0 is reset equal to 2. 

IPFL, Number of Values in IPRFL Array (Maximum 100) 

IPRINT, Number of Values in IPR Array (Maximum 100) 

Card 9. KVSLAW, KPGRAD, NV, NEQIL (4(8X,I2)) 

KVSLAW, Indicator for Eddy Viscosity Law, 0 for 

Reichardt Law, Non- zero for Van Driest Law 
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KPGRAD, Indicator for Expression for A in Van Driest 
Inner Eddy Viscosity Law; 0 for A + = 26, 1 
for A + Corrected for Mass _Txans.fe.r_, . 2. for -A* 
Corrected for Pressure Gradient, 3 for A + 
Corrected for Both Mass Transfer and Pressure 
Gradient 

NV, Number of Variables Written on the Gas 

Property Tape 

NEQIL, Indicator for Gas Model, 0 for Perfect 

Gas Model, Non- zero for Equilibrium Gas 
Model 

Card 10 KCQ, KINJ, KNOINJ (4(7X,I3)) 

KCQ, i ’ Indicator, Zero for Constant Injection 

Rate, Non- zero for Injection Rate Distri- 
bution Input. 

KINJ, Subscript in XSTA Array Giving the Location 

of the Beginning of Injection 

A value greater than UMAX is set equal 
to UMAX,. 

KNOINJ, Subscript in XSTA Array Giving the Location 
of the End of Injection 

A value greater than UMAX is set equal to 
UMAX 


Card 11 CHI CRT , XBAR, ATR, CQ, FINJ (6F12.6-) 


CHI CRT, 


XBAR, 


Value of CHIMAX at which Transition 
Regime Calculations Begin (arbitrary if 
KTRANS = 0) 

Appropriate values have been found to be 
between 2000 and 4000. 

Measure of Relative Length of Transition 
Region (i.e. X £nd of Transition = XBAR * 

X 1 

Beginning of Transition^ 


For Reichardt Law, XBAR should be about 65% 
greater than value used with Van Driest Law. 

Recommended values are approximately 3,3 
and 2.0, respectively. 
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ATR, 


FINJ =» 


Card 12. 
TFS , 
UFS, 


XMA, 


REINF, 


Card 13. 


B0 = 


PRL= 


PRT= 


OMEGA= 

Card 14. 
XK1, 


XK2 , 


Transition Constant = 0.412 

P w v w / Pco , u,, Injection Rate 

f. , Value of Stream Function at Wall 
w 

If FINJ is zero, VW is calculated from CQ. 

TFS, UFS, XMA, REINF (6F12.6) 

Free-stream temperature, °R 

Free-stream Velocity, ft/sec 

If input value is zero, UFS is computed 
from TFS and XMA 

Free-stream Mach Number 

For a nozzle, TFS, UFS and XMA correspond 
to exit conditions and are computed by the 
program. 

Free-stream Reynolds Number per Unit 
Length 

If input value is zero, REINF is computed 
in Subroutine REFSUB and KFS must be non- zero 

BO, PRL, -PRT, OMEGA (6F12.6) 

H /H 
w' o 

Pr, Laminar Prandtl Number 

A value of 0.0 is reset to 0.7. 

Pr^, Turbulent Prandtl Number 

to, Exponent for Power Viscosity Law (If 
to = 0, Sutherland's law is used.] 

XK1 , XK2, CONVRG , ADTEST (6F12.6) 

Constant for Van Driest Inner Eddy Viscosity 
Law 

A value of 0.0 is reset to 0.4,, the normal 
value. 

Constant for Outer Eddy Viscosity Law. 

A value of 0.0 is reset to 0.0168, the normal 
value . 
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CONVRG, Convergence Criterion 

A value of 0.0 is reset to 0.001. 

ADTEST, Criterion for Increasing ETAINF (F(IE) - 
F(I'E-4) is compared with ADTEST.) 

A value of 0.0 is reset to 0.001, the 
recommended value. 

> 

Card 15. DX, CRNI , XKETA, ETAINF, REFLEN (6F12.6) 

DX, Initial x Step Size 

CRNI, Selector for Finite Difference Scheme; 

1.0 for Fully Implicit (Recommended), 

0.5 for Crank-Nicolson, and 0.0 for Fully 
Explicit 

XKETA, Parameter Which Controls the Grid Spacing 
in the q Direction (1.0 Gives an Equally 
Spaced Grid, a Value Greater than 1.0 
Gives, a Finer Grid at the Wall than at 
the Outer Edge.) A value of 0.0 is reset 
to 1.09, the value recommended for IE = 101. 

ETAINF, Maximum value of q 

A value of 0.0 is reset to 100 which is 
the recommended value.* 

REFLEN, An arbitrary Reference Length (sfee 

"Description of Output") 

Card 16. XJFAC, ANGLE, THSHOK', G (6F12.6) 

XJFAC, Indicator, 0.0 for 2-D Flow, 1.0 for 
Axially Symmetric Flow 

ANGLE, Wedge Half Angle, in Degrees 

THSHOK, Shock Angle, in Degrees 

G= Y = C /C 

P v 


*Note: ETAINF may be considerably larger than the value of 

q corresponding to 6; particularly for laminar flow. The 
recommended values of IE, XKETA, and ETAINF are appropriate 
for laminar, transition, and turbulent flows. 
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Card 17. 


TSTAG, TREF1, PSTAG , PFS, AMUREF, SCF (6F12.6) 


TS.TAG , 
TREF1 , 

PSTAG' 

PFS ^ 
AMUREF, 

SCF, 


•Card 18. - 

POPRIM, 

CMSTD , 
GAMEFF, 

DXMAX 

Cards 19 a, 
IPR, 

Cards 20 a, 
IPRFL , 


Stagnation Temperature, °R 

Reference Temperature, °R (Used in Computing 
REINF" if Input Value of REINF is Zero) 

F-r-ee^s-tream Stagnation Pressure for Ideal 
Gas-, PSIA 

Free-stream Pressure, PSIA 

Reference Viscosity Corresponding to TREF1, 
Ibf - sec/ ft 2 

Scale Factor used to Convert Unit Length 
for REINF (REINF as Computed is per Foot 
if SCF = 1.0; REINF is per Inch if SCF = 
. 12 . 0 ) 

POPRIM, CMSTD, GAMEFF, DXMAX '(6F12.6) 

Local Stagnation Pressure for Ideal or 
Equilibrium Gas, PSIA (Corresponds to 
Stagnation Pressure on Expansion Tape) 

/• 

S.tandard Molecular Weight of Given Gas v ) 

Effective y (Cp/C v ) Behind Normal Shock 
(for Blunt Body) (Same as G for a Nozzle) 

Maximum x Step Size Permitted in the 
Calculation 

b, c, . . . (IPR(J) , J = 1, IPRINT.) (1415) 

Array -of Subscripts for Array XSTA Giving 
Values of x at which a Solution is to be 
Obtained (Array Dimensioned for 100 Values) 

b, c, . . . (IPRFL (J) , J-l, IPFL) (1415) 

Array of Subscripts for Array XSTA Giving 
Values of x at which Complete Solutions 
(with Profiles) are Printed (Array 
Dimensioned for 100 Values) 

Each value of IPRFL must also be a value 
of IPR. 
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Cards 21. ZA(J), XSTA(J), RZ (J) , PZ(J), TWZ (J) , CQZ(J), 
LSTC (6E12.6, A4) 

The -s-ix -a-rray-s are dimensioned for 500' values . 

Array of Coordinate Values Along the Body 
Axis 

Array of Coordinate Values Along the Body 
Surface (Same as ZA for a Flat Plate) 

Array of Radius Values for a Nozzle or a 
Blunt Body 

Array of Pressure Ratio Values - P/P Q (P , 
Local Stagnation Pressure) 

Array of Surface Temperatu re V alues ,..°R 

Array of Injection Rate Values, P w v w /Poo u <» 

Alphameric Variable Used to Determine the 
Last Card in Data Deck (’LAST’ is Coded 
on Final Card.) 

For a flat plate, ZA and XSTA are both used and must be 
part of the input and the array RZ should be zero. If 
KPD is zero, the array PZ should be zero and if KTW is 
zero, the array TWZ should be zero. 


ZA, 

XSTA, 

RZ, 

PZ, 

TWZ, 

CQZ, 

LSTC, 
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DESCRIPTION OF OUTPUT 


This section contains three subsections. The first 
subsection describes the first section of the output which 
is the input and initialized data. The second subsection 
describes the data which is written for each station at 
which solutions are obtained. The third subsection describes 
the miscellaneous messages and data written by the program. 
The output from a sample calculation of turbulent flow over 
a flat plate is .included at the end of this section. 


Input and Initialized Data 


LABEL 

, Alphameric Data for Identification 
Case (Written by Subroutine READIN) 

Tl'O 

" V T ref Khere T ref “ 

U l/C 

p 

P10 

= V P ref where P ref = 

TT 2 

P u 

00 

UESO 

= U /U at s = 0 
e' °° 


TESO 

■ V T ref ats "> 


PESO 

= V P ref at 3 * 0 



The five variables above are written by subroutine 
BLUNT1, N0ZZLE1, or WDGFP1, depending upon the body 
geometry. The data in the remainder of the first block 
is written by subroutine WRITE1 and corresponds to the 
input data with the following exceptions: 


Line 5 

TIN 

' XMUINF = 
Line 6 

RHOFS 


T /T , 
oo' ref 

“=>ref 

P„> slugs/ft 3 
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Line 7 


AMUINF = lb f - s e c/-f t 2 

Note: Line 5 is written only if KFS^O. Line 6 is 

written if TREF1>1.0. 


Line 11 

EPSVD 

Line 13 

RHOSTD 


Line 14 
CP 
R 


e VD = {y ref /Cp » U «= L)}% ’ Where 
L is the Unit Length in REINF 


Density of Gas at Standard 
Atmospheric Conditions, 
slugs/ft 3 


C , Specific Heat 

Gas Constant for Specified Gas 


Next in the program output are the arrays IPR and 
IPRFL (which are described in the section "Description 
of Input".) . Following the arrays IPR and IPRFL are the 
arrays ZA, RZ , XSTA, PZ , UEZ, TWZ , and CQZ with the array 
subscripts. PZ in the output differs from the values of 
PZ in the input in that for input PZ is P/P Q and is changed 

by the program to P/P re f UEZ is the array of non-dimensional 

edge velocities calculated by the program (U /U ) . For a flat 

plate, the values of UEZ are unity. 

When the restart procedure is used, the input and 
initialized data described above (except for T10, P10, 

UESO, TESO, and PESO) are written preceded by the mes- 
sage "PROGRAM RESTARTED. KRSTRT = #". For equilibrium 
gas solutions, free stream and reference conditions are 
recalculated after a converged solution is obtained for 
K = 1 using the perfect gas model. Thus for a restart, 
these quantities as printed in this data group will cor- 
respond to the values used in the equilibrium gas model 
and not the input values. A particular example is PZ 
which is recalculated for the equilibrium gas model 
and is the dimensional pressure in lbf/in^. 
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Station Data 


The station data are divided into two groups. The 
first group of data is written for each value of x at' 
which a solution is obtained. The second group- -the 
function profiles- -is written only for the values of x 
corresponding to XSTA CIPRFL) . In the first group, 
lines 5-13 are not written if x - 0. In the sixth line, 
REX alone is written if KFS =0. If KFS f 0, REX is 
written followed by the wall heat transfer (BTU/ft 2/sec) 
and two heat transfer coefficients; one in BTU/in^-sec-R, 
the other in Ibm/in^-sec. 


GROUP ONE 
Line 1 


S 


XI 


2 


Z/L 

RO 


BETA 

PP 

NIT 

K 


, Surface Distance, x 
= £, Transformed Surface Distance 

, Axial Distance, z- 

, Axial Distance/Body Length (Z/ZACIIMAX) ) 

, Local Radius, r, (Set Equal to One for a 
Wedge or a Flat Plate) 

= B = 2?/U e (dU e /d?) 

= dPE/ds 

, Number of Iterations' at Current Value of x 
, Station Counter 


Line 2 



TE 

= 

T /T r 
e' ref 

UE 

= 

U /U 
e' °° 

MACHE 


Edge Mach Number 

RHOE 

= 

P e /Pco 

MUE 

= 

^e^ref 

PE 

= 

P /P . 
e' ref 

DUEDS 

- 

dUE/ds 
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Line 3 


CF 

9 

Skin Friction in Transformed Coordinates 

= /-Eyjj 

00 

QW 

9 

Heat Transfer Coefficient in Transformed 
Coordinates 

HG 


QW * EPSVD 

EPSVD 

- 

£ VD = {v ref/^ p «» U »L^ % » Where L is the 



Unit Length in REINF 

CQ 

= 

p v / p U 

W 7 k<5 ° 03 

KEP 

9 

Subscript in EPSPL Array Where- the Inner 
and Outer Eddy Viscosities are Matched 
(Zero for Laminar Flow) 

NITTOT 

9 

Cumulative Total Number of Iterations in 
x Direction 

Line 4 


(F = U/U : Prime Denotes 9/9n) 

F2N (1) 

= 

F’ 
w . 

F2N (3) 

= 

F ? at Two Points from the Wall 

F2NN(1) 

s 

F" 

w 

F2NN (3) 

= 

F M at Two Points from the Wall 

Line 5 



CHIMAX 

9 

Maximum Value of Vorticity Reynolds Number 
- X 

GAMMA 

9 

Transition Intermittency Factor (Set to 
Zero for Laminar Flow, Set to One for 
Turbulent Flow) 

XI BAR 

— 

1", Transition Intermittency Factor Coordinate 
Initialized as Zero, Calculated after 
Transition Regime is Entered 
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Line 6 


> 


REX 

WALL HEAT TRANSFER 

Line 7 
STE 

STINF 

CHEDGE 

CHINF • = 

CHINF*SQRT (REX) = 

Line 8 
CFE 

CFINF 
CF (TOTAL) 

CFBAR*SQRT (REX) = 
CFINF*SQRT (REX) = 

Line 9 
CFINF/ 2 

CHINF/, (CFINF/ 2) = 
CHEDGE/ (CFE/ 2) = 


Local Reynolds Number Based on Edge 
Conditions 

AND HEAT TRANSFER COEFFICIENTS (If KFS/O) 

wty 

q 

P.O.lV'V ' 

C h = p TT [H -H ) - Where H aw is the 
e -ee^w aw 

Adiabatic Wall Enthalpy 
L h p U (H -H J 
C, /REX 


C. = 2t /p U 4 
f w' F e e 

e 

C. = 2t /p U - 2 
± w 00 00 


rx 


C f " * 


C£ dt 


C £ /REX 


C £ . /REX 


C f / 2 
2C ” /C f 


CO CO 


2c h ./Cf ■ 

e e 
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Line 10 




X/REFLEN' 

- ' 

x/ref erence 

length • 

Z/REFLEN 

= 

z/ reference 

length 

RO/REFLEN 

= 

r/ref erence 

length 

DELTA/X 

= 

6/x 


DELSTR/X 

= 

<S*/x 


Line 11 




THETA/ REFLEN 

= 

0/reference 

length 

DELSTR/REFLEN 

= 

5*/ref erence length 

DELTA/REFLEN 

= 

6/reference 

length 

DELSTRAXI /REFLEN 

= 

6* /reference length 

3.X X 

Line 1.2 




THETA/DELTA 

= 

0/6 


DELSTR/DELTA 

- 

6*/6 


DELSTR/THETA 

= 

6 */0 


DELSTRAXI 

— 

5 Sxi = r {/1 

.+ 26*/* -1} 



(Zero for 2- 

D Flow) 


Line 13 

DELSTRK = 6j*, Incompressible Boundary Layer 

Displacement Thickness 

DELSTR = 6*, Compressible Boundary Layer 

Displacement Thickness 

DELTA = 6, Boundary Layer Thickness (Value 

of y where U/U - 0,995) 

6 

THETA = 0, Boundary Layer Momentum Thickness 
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RETHETA 

' 

Re Q , Edge Unit Reynolds Number Times 0 

GROUP TWO 

- 

PROFILES 

Block 1 



ETA 

> 

p, Transformed Normal Coordinate 

Y 

> 

y, Corresponding’ l?hysical Coordinate 

Y/THETA 

> 

y/0 (Zero for x = o) 

Y/DELTA 

> 

y/6 (Zero for x = o) 

F=U/UE 

> 

Nondimens ional Velocity 

FP (N) 

= 

3F 

3n 

FPP 

= 

9 2 F 

77 

EPS+ 

= 

+ 

e , Eddy Viscosity (Zero for Laminar 
Flow) 

+ 

AO BP 

= 

^ = ^ OT a Constant P^andtl 



Number) 

N 

> 

Grid Point Number 

Block 2 



ETA 

> 

(As Above) 

G=H/HE 

> 

Nondimens ional Stagnation Enthalpy 

GP (N) 

= ' 

SG 

3p 

V 

- 

'B 3 -p 

(-2$ - F) dp 

T/TE 

= 

T/Te . 

RHO/RHOE 

- 

p/p C-T /T for Ideal Gas) 
6 0 
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RHOMU /RHOEMUE 

" Ph/P e u e (=c) 

CP 

3C 

3p 

CHI 

= X, Vorticity Reynolds Number (Zero 

for x = o) 

N 

, (As above) 


Miscellaneous Messages and Data 

For an equilibrium gas solution several messages and 
sets of data are written. For a nozzle, if the pressure 
distribution is calculated by the program (KPD=0) , subroutine 
EDGE! writes the message "EDGE CONDITIONS FOR EQUILIBRIUM 
NOZZLE" and the values for the arrays Z, XSTA, LOGlOP, 

LOGIOH, UE, and MACH. When the equilibrium gas solution 
is begun, the appropriate geometry subroutine (BLUNT1, 

N0ZZLE1, or WDGFP1) is called and the new values of T10, 

P10, UESO, TESO, and PESO are written. Subroutine WRITE1 
is called to write the message "BEGIN EQUILIBRIUM GAS 
SOLUTION" and the new reservoir, free-stream and reference 
conditions . 

Subroutine READIN writes the message "RESTART TAPE 
WRITTEN. K = # KTPW = #" after the station data has 
been written on the restart tape. K is the current 
value of K and KTPW is the next value of K at which the 
restart tape will be written. 

For transition regime calculations, subroutine 
EFFMU writes the message "TRANSITION BEGINS" at the 
beginning of transition and the message "TRANSITION 
ENDS" when XIBAR first exceeds 2.0 with the Reichardt 
eddy viscosity law or when XIBAR .first exceeds 4.0 with 
the Van Driest eddy viscosity law. The message "TRANSITION 
ENDS" was found to be useful when the Van Driest eddy viscosity 
law was used in calculations but less useful with the 
Reichardt eddy viscosity law. At best, the message 
indicates only approximately where transition ends. 
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For the instantaneous transition model, subroutine 
CHANGE writes the message "TRANSITION BEGINS INSTANTANEOUSLY" 
and the values of X and DX when transition is initiated. 

For the normal injection model, subroutine CHANGE 
writes the message "INJECTION BEGINS" and the values 
of X, DX, and CQ at the beginning of injection and the 
message "INJECTION ENDS" and the value of X at the end 
of injection. 

If the iteration counter NIT reaches the value of 
NIT.3, the step size is halved, new values of X and XI 
and new edge properties are calculated and the program 
attempts to obtain a converged solution for the smaller 
value of X. In this case, MAIN writes the values of 
NIT, DX, X, F2N(1), F2N1, and DIF. 

When ETAINF. is increased, subroutine ADDETA writes 
the message "INTERMEDIATE PROFILE DATA- -ETAINF INCREASED 
I STOP = the values of DX, XKETA , ETAINF, and ADTEST, 
and the function profiles. The function profiles are 
as described above in the subsection "Station Data; 

GROUP TWO", ISTOP is the number of iterations since 
the last converged solution was obtained. 

If ISTOP exceeds 100, the message "STOP *** ISTOP .GT. 100" 
is written by MAIN and the program is stopped. If after a 
converged solution is obtained, the derivative of F at the 
wall is negative, subroutine WRITE2 writes the message 
"PROBLEM TERMINATED. NEGATIVE DF/DETA INDICATES THAT THE 
BOUNDARY LAYER HAS SEPARATED" and stops the program. 

Normal termination of the program is indicated by 
the message "THE END X = XSTACIIMAX) " or the message 
"THE END K = KEND" which is written twice by MAIN. 

In the above descriptions, all quantities which have 
the apparent dimension of length have been non-dimension- 
alized b,y the per unit length in RE INF. 
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PROGRAM LTBLCEQL ILAMINAR AND/OR TURBULENT BOUNDARY LAYERS IN CHEMICAL EQUILIBRIUM 

A PROGRAM FOR 

2-D AND AXISYMMETRIC NONREACTING PERFECT GAS AND EQUILIBRIUM CHEMICALLY REACTING LAMINAR. 

TRANSITIONAL AND/OR TURBULENT BOUNDARY-LAYER FLOW 

BY 

E. C. ANDERSON, E. W. MINER AND C. H. LEWIS 
AEROSPACE ENGINEERING DEPT. 

VIRGINIA POLYTECHNIC INSTITUTE AND STATE UNIVERSITY 
BLACKSBURG, VA. 24061 
, PHONE - (7031-552-6126 

PROGRAM DEVELOPED UNDER CONTRACT NAS1-9337 WITH NASA LANGLEY RESEARCH CENTER , 

SAMPLE OUTPUT CASE, FULLY TURBULENT FLAT PLAT, WITH KEND=8 


T10= 0*54931510 00 P10= 0.9261968D 00 

UESO= 0*10000000 01 TESO= 0.4931511D-01 PESO- 0. 1409003D-01 

KRSTRT = 0, NRSTRT = 2, NT1 = 0, NT2 = 0, NT3 = 0, NT 4 = 0. 

NOSE = 2, LAMTRB = 2, KTRANS = 0, KTRNSN = 17, IAOH - 0, KTW = 0, KPD * 0, KFS = 1 
NIT1 = 3, NIT2 = 6,'NIT3 - 9, NC - 1, IE = 101, KEND = 8, UMAX = 17, ITH = 0 

KADETA = 1, KL = 2, IPFL = 17, IPRINT = 17, KVSLAW = 1, KPGRAD = 0, NV = 0, NEQIL = 0 
''KCQ = 0, KINJ = 17, KNOINJ = 17, CQ - 0.0 , F INJ = 0.0 

TFS = 546.000000, UFS_= 8157.279981, MINF = 7.12000, REINF = 4.1017223D 05, TIN = 0.049315, XMUINF = 0 

PFS = 1.528000, RHOFS = 2. 3468380-04, PSTAG * 7048.0454, TSTAG = 6081.828480 

CHICRIT = 2000.000, XBAR = 2.000000, ATR = 0.412000 

60 = 0.087767, PRL - 0.7100, PRT = 0.9000, OMEGA = 0.0 , XKl = 0.4000, XK2 = 0.016800 

CONVRG ■= 0.0100, ADTEST = 0.0010, CRN! = 1.0000, XKETA = 1.0900, ETAINF = 100.00 

CP/CV * 1.400000, EPSVD = 0.003835, SCALE FACTOR * 12.00000, REFERENCE LENGTH = 1.0000 

XJFAC = 0.0 , ANGLE = 0.0 , THSHOK = 0.0 , OX = 0.0100, DXMAX = 20.0000 

POPRIM = 1.5280, CMSTD = 28.967000, GAMEFF = 1.400000, RHOSTD = 0.002506559 

CP- 6010.05 FT2/I SEC2- DEGREE RANKXNE ) R= 1717.16 FT2/( SEC2-0EGREE RANKINEJ FREE STREAM MACH NUMBER- 7.1200 



.165760 







IPR 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IPRFL 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 


AXIAL POSITION 

Z A 

RZ 

X ST A 

PZ 

UEZ 

TWZ 

CQZ 

1 

0.0 

0.0 

0.0 

0.0 

1.000000 

0.0 

0.0 


3.130000 

0.0 

3.130000 

0.0 

1.000000 

0.0 

0.0 

;#3 

4.380000 

0.0 

4.380000 

0.0 

1.000000 

0.0 

0.0 


5. 630000 

0.0 

5.6300C0 

0.0 

1.000000 

0.0 

0.0 

* 5 

6. 8 80000 

0.0 

6.880000 

0.0 

1.000000 

0.0 

0.0 

6 

8.130000 

0.0 

8.130000 

0.0 

1.000000 

0.0 

0.0 

7 

9.380000 

0.0 

9.380OD0 

0*0 

1.000000 

0.0 

0.0 

8 

10.630000 

0.0 

10.630000 

0.0 

1.000000 

0.0 

0.0 

9 

11.880000 

0.0 

11.880000 

0.0 

1.000000 

0.0 

0.0 

10 

13. 13COOO 

0.0 

13.130000 

0.0 

1.000000 

0.0 

0.0 

11 

14.380000 

0.0 

14.360000 

0.0 

1.000000 

0.0 

0.0 

12 

, 15.630000 

0.0 

15.630000 

0.0 

1.000000 

0.0 

0.0 

13 

17.3 80000 

0.0 

17.380000 

0.0 

1.000000 

0.0 

0.0 

14 

19.130000 

0.0 

19.130000 

0.0 

1.000000 

0.0 

0.0 

15 

20.880000 

0.0 

20.880000 

0.0 

1.000000 

0.0 

0.0 

16 

22.630000 

0.0 

22.630000 

0.0 

1.000000 

0.0 

0.0 

17 

24.380000 

0.0 

24.380000 

0.0 

l. 000000 

0.0 

0.0 


I 

UD 

Ln 

i 


S = 0.00010, 

XI = 0.00002, Z = 0.00010, Z/L = 0.00000, RO = 1.00000, BETA = 0.0 

TE = 0. 04932, UE = 1.00000, MACHE = 7.1200000, RHOE = 1.D00Q0, MUE = 0.16576, PE = 

CF = 23.96969, QW = -6.30086, HG = -0. 2416440-01, EPSVD = 0. 383510D-02, CQ = 0.0 

F2N(lt = 0.419130, F2NI3) = 0.415164, F2NNU) = 0.303937, F2NNI3I = 0.304071 


PP = 0.0 , NIT = 

0.01409, DUEDS = 0.0 

, KEP = 58, NITTOT = 


8, K = 1 

8 


CHIMAX = 8.673126D 00, GAMMA = l.OOCOOOD 00, XI BAR = 0.0 


REX = 4.10172D 01 WALL HEAT TRANSFER 

3. 9565460 03 
BTU/tFT**2*SEC» 


HEAT TRANSFER COEFFICIENTS 
5.5498170-03 2.3114540-02 

BTU/IIN**2#SEC*0EGR£E RI LBM/ (I N**2* S EC > 


STE = 4.8222450-02, STINF = 4. 822245D-02 , CHEDGE = 5.4039850-02, CHINF = 5.4039850-02, CHINF*SQRT(REX) = 3.460965D-01 


CFE - 9. 1926130-02 , CFINF= 9.192613D-02, CF( TOTAL ) = 1 .838522D-01, CFBAR*SQRT(REXI = 1.1774760 00, CFI NF*S ORT < REX ) = 5.8873800-01 
CF INF /Z = 4.5963060-02, CH INF/ ( CF INF/2 I = 1.1757230 00, CH EDGE/ l CFE/2 ) = 1.1757230 00 


X/REFLEN = 9.9999990-05, Z/REFLEN = 9.9999990-05, RO/REFLEN = l.CCOOOOD 00, OELTA/X = 1.4991490 00, OELSTR/X = 9.9665230-01 
THETA/REFLEN = 8.8500040-06, DELSTR/REFLEN = 9.966522D-05, DELTA/REFLEN = 1.4991490-04, DEL STRA XI /REFLEN ='0.0 
THETA/DELTA = 5.9033520-02, 0 EL STR /DEL TA = 6.6481200-01, OE L STR/THE TA = 1.1261600 01, DELSTRAXI = 0.0 
OELSTRK = 5. 300600-05, OELSTR = 9.966520-05, DELTA = 1.49915D-04, T FETA = 8.850000-06, RETHETA = 


3.63003D 00 
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ETA 

Y 

Y/THETA 

0.0 

0.0 

0.0 

0.003403 

0.000000 

0.008345 

0.007445 

0. 000000 

0.018378 

0.012248 

0.000000 

0.030464 

0.017955 

0.000000 

0.045058 

0.024735 

0. OOOOOl 

0.062727 

0.032790 

0.000001 

0.0841B6 

0.042361 . 

0.000001 

0.110340 

0.053732 

0.000001 

0. 142340 

0.067241 

0. 000002 

0.181666 

0.083292 

0.000002 

0.230229 

0.102362 

0.000003 

0.290516 

0.125019 

0.000003 

0.365779 

0. 151937 

0.000004 

0.460296 

0.183919 

0.000005 

0.579717 

0.221917 

0.000006 

0.731516 

0. 267063 

0. 000008 

0.925576 

0.320700 

0.000010 

1.174911 

0.384426 

0.000013 

1.496486 

0.460139 

0.000017 

1.912016 

0.550094 

0.000022 

2.448427 

0.656969 

0. 000028 

3.137313 

0.783948 

0.000036 

4.012252 

0.934811 

0.000045 

5.102313 

1.114052 

0.000057 

6.420444 

1.327008 

0.000070 

7.948236 

1.580020 

0.000085 

9.625292 

1.880625 

0. 000101 

11.358129 

2.237773 

0.000116 

13.057173 

2.662101 

0.000130 

14.684270 

3.166245 

0.000144 

16.270725 

3. 765218 

0. 000159 

17.909913 

4.476858 

0.000175 

19.728474 

5. 322358 

0.000193 

21.844915 

6.326896 

0.000216 

24.351685 

7. 5203 87 

0.000242 

27.329570 

8. 93 8375 

0.000273 

30. 867594 

10.623086 

0.000310 

35.071121 

12. 624691 

0.000355 

40.065330 

15.002798 

0.000407 

45.998951 

17.82 8227 

0.000469 

53.048686 

2 li> 185119 

0. 000544 

61.424476 

25.173443 

Q.C00632 

71.375752 

29.911970 

0.000736 

83.198863 

35. 541814 

0.000861 

97. 245901 

42.230632 

0.001008 

113.935187 

50.177617 

0.001184 

133. 763728 

59.619429 

0.001392 

157.322017 

70.837247 

0.001640 

185.311621 

84.165135 

0.001934 

218.566069 

100. OOOQOO 

0.002284 

258.075678 


Y/OELTA 

F=U/UE 

FPCN) 

0.0 

0.0 

0.414130 

0.000493 

0. 001411 

0.415164 

0.00 1085 

0.003092 

0.416394 

0.001798 

0.005095 

0.417856 

0.002660 

0.007485 

0.419593 

0.003703 

0.010337 

0.421658 

0.004970 

0.013743 

0.424111 

0.006514 

0.017816 

0.427022 

0.008403 

0.022691 

0.430472 

0.010724 

0.028534 

0.434557 

0.013591 

0.035548 

0.439382 

0. 017150 

0.043981 

0.445064 

0. 021593 

0.054141 

0.451729 

0.027173 

0.066406 

0.459502 

0.034223 

0.081247 

0.468497 

0. 043184 

0.099246 

0.478797 

0.054640 

0.121128 

0.490409 

0.069359 

0.147783 

0.503205 

0.088343 

0.180299 

0.516814 

0.112873 

0.219972 

0.530446 

0. 144539 

0. 268288 

0.542619 

0.185207 

0.326812 

0.550763 

0. 2368 57 

0.396918 

0.550745 

0.301207 

0. 479224 

0.536564 

0.379021 

0.572628 

0.500906 

0.469212 

0,673057 

0.437729 

0.568215 

0.772628 

0.347355 

0.670510 

0.860644 

0.241332 

0. 770811 

0. 927363 

0.141073 

0.866864 

0.969335 

0.068289 

0.960518 

0.990810 

0.025337 

1.057285 

0. 998448 

0.005678 

1.164641 

0. 999911 

0.000601 

1.289582 

1.000000 

0.000011 

1.437566 

1.000000 

O.OOODOO 

1.613361 

1.000000 

0. 000000 

1.822223 

1.000000 

0.000000 

2.070372 

1.000000 

0. 000000 

2.365197 

1.000000 

0.000000 

2. 71 5480 

1.000000 

0.000000 

3.131651 

1.000000 

0. 000000 

3.626103 

1.000000 

0.000000 

4.213562 

1.000000 

0.000000 

4.911522 

1.000000 ■ 

0.000000 

5. 740768 

1.000000 

0.000000 

6.725995 

l. 000000 

0.000000 

7.896543 

1.000000 

0.000000 

9.287272 

1.000000 

0. 000000 

10. 939597 

1.000000 

0.000000 

12. 902724 

1.000000 

0. 000000 

15.235115 

1.000000 

-0.000000 


FPP 

EPS+ 

AOBP 

N 

0.303937 

0.0 

-o.ooooon 

1 

0.304071 

0.000000 

0.000000 

3 

0.304278 

0.000000 

0.000000 

5 

0.304449 

o.oooobo 

0. 000000 

7 

0.304550 

0.000000 

0.000000 

9 

0. 304534 

0.000060 

0.000000 

11 

0.304338 

0.000000 

0.000000 

13 

0.303872 

0.000000 

0.000001 

15 

0.303018 

0.000000 

0.000001 

17 

0.301619 

0.000000 

0.000002 

19 

0.299470 

0.000000 

n;ooooo4 

21 

0.296307 

0.000000 

0.000006 

23 

0.291787 

0.000000 

0.000009 

25 

0.285467 

0. oooooi 

0.000014 

27 

0.276772 

0.000001 

0.000020 

29 

0.264945 

0.000002 

0.000030 

31 

0.248978 

0.000004 

0.000045 

33 

0.227517 

0.000007 

0.000067 

35 

0.198737 

0.000012 

0.000102 

37 

0.160234 

0. 000022 

0.000158 

39 

0.109024 

0.000040 

0.000256 

41 

0.041936 

0.000076 

0.000435 

43 

-0.043036 

0.000151 

0.000793 

45 

-0.143617 

0.000320' 

0.001572 

47 

-0.248233 

0. 000738 

0,003435 

49 

-0.332287 

0.001881 

0.008271 

51 

-0.364129 

0.005290 

0.021233 

53 

-0.325447 

0.015663 

0.052219 

55 

-0.229879 

0.043012 

0.097854 

57 

-0.124970 

0.062021 

-0.014921 

59 

-0.056397 

0.052526 

-0.021866 

61 

-0.017378 

0. 038493 

-0.022735 

63 

-0.002759 

0.024285 

-0.016420 

65 

-0.000131 

0.013779 

-0.009212 

67 

-0.000000 

0.007319 

-0.004526 

69 

-0. 000000 

0.003700 

-0.002069 
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-O.DOOOOO 

0.001792 

-0,000896 
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-0.000000 

0.000835 

-0.000370 

75 

0.000000 

0.000376 

-0.000146 

77 

0.000000 

0.000164 

-0.000056 

79 

0. 000000 

0.000070 

-0.000021 

81 

0.000000 

0. 000029 

-0. 000007 

83 

0.000000 

0.000012 

-0.000003 
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0.000000 

0. 000005 

-0.000001 

87 

0.000000 

0.000002 

-0.000000 

89 

0.000000 

0.000001 

-0.000000 

91 

-0.000000 

0. 000000 

-0. 000000 

93 

-0.000000 

0.000000 

-0.000000 

95 

-0.000000 

0.000000 

-0.000000 

97 

-0.000000 

0.000000 

-0.000000 
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ETA 

G = H/HE 

GP (N ) 

V 

T/TE 

RHO/RHOE 

RHOMU/RHOEMUE 

CP 

CHI 

N 

0.0 

0.087767 

0.281411 

0.0 

0.977626 

1.022886 

1.005242 

- 0.737555 

0.0 

1 

0 . OD 34 O 3 

0.088726 

0.282433 

- 0.000002 

0. 980291 

1.011848 

1.002738 

- 0.734427 

0.000044 

3 

0.007445 

0. 089871 

0.283651 

- 0.000011 

1.000959 

0.999042 

0.999776 

- 0. 730606 

0.000206 

5 

0.012248 

0.091236 

0.285103 

- 0.000031 

1.016005 

0.984248 

0.996278 

- 0.725933 

0.000544 

7 

0.017955 

0.092868 

0.286834 

- 0.000067 

1.033873 

0. 967237 

0.992152 

- 0.720213 

0.001139 

9 

0.024735 

0.094820 

0.288900 

- 0.000127 

1.055090 

0.947786 

0.987293 

- 0.713209 

0.002097 

11 

0.032790 

0.097157 

0.291367 

- 0.000224 

1.080280 

0.925686 

0.981582 

- 0.704637 

0.003560 

13 

0.042361 

0.099960 

0.294313 

- 0.000375 

1 . 11 D 175 

0.900759 

0. 974888 

- 0.694166 

0.005713 

-15 

0.053732 

0.103326 

0.297834 

- 0.000606 

1.145644 

3.872872 

0.967067 

- 0.681414 

0.008793 

17 

0.067241 

0. 107378 

0.302041 

- 0.000952 

1.187699 

0. 841964 

0.957966 

- 0.665956 

0.013101 

19 

0.083292 

0. 112267 

0.307071 

- 0.001466 

1.237525 

0.808065 

0.947426 

- 0.647335 

0 . 01 9020 

21 

0.102362 

0.118180 

0.313083 

- 0. 002224 

1.296488 

0. 771314 

0.935293 

- 0.625084 

0. 027029 

23 

0.125019 

0.125354 

0.320266 

- 0.003335 

1.366148 

0.731985 

0.921430 

- 0.598758 

0.037736 

25 

0.151937 

0.134091 

0.328841 

- 0. 004958 

1.448244 

0.690491 

0.905728 

- 0.567970 

0.051919 

27 

0. 183919 

0.144771 

0.339058 

- 0.007318 

1. 544653 

0.647395 

0.888135 

- 0. 532444 

0.070589 

29 

0.221917 

0 . 157885 

0.351199 

- 0.010746 

1.657281 

0.603398 

0.868677 

- 0.492052 

0.095105 . 

31 

0.267063 

0.174065 

0.365555 

- 0.015719 

1.787848 

0.559332 

0.847495 

- 0.446851 

0.127341 

33 

0.320700 

0.194126 

0.382398 

- 0.022929 

1.937485 

0.516133 

0 . 824 B 81 

- 0.397096 

0.169980 

35 

0.384426 

0.219122 

0.401904 

- 0.033379 

2.106039 

0.474825 

0.801320 ’ 

- 0.343223 

0.226988 

37 

0.460139 

0.250401 

0.423997 

- 0.048527 

2.290913 

C . 436507 

0.777549 

- 0.285793 

Oo 304431 

39 

0.550094 

0.289655 

0.448053 

- 0.070482 

2.485283 

0.402369 

0.754611 

- 0.225418 

0.411890 

41 

0.656969 

0.338911 

0.472363 

- 0. 102276 

2.675605 

0.373747 

0.733942 

- 0.162681 

0.564998 

43 

0.783948 

0. 400373 

0.493265 

- 0.148225 

2.838783 

0.352264 

0.717472 

- 0.098123 

0.790037 

45 

0.934811 

0.475914 

0. 504047 

- 0.214334 

2.940536 

0.340074 

0.707730 

- 0.032440 

1.132288 

47 

1.11405 2 

0. 565953 

0.494387 

- 0.308672 

2.938594 

0. 340299 

0.707913 

0.032910 

1.670331 

49 

1.327008 

0. 667570 

0.452360 

- 0.441490 

2.796086 

0.357643 

0.721677 

0.094388 

2. 535272 

51 

1.580020 

0.772543 

0.371400 

- 0.624743 

2 . 506345 

0.398987 

0.752240 

0.144424 

3.910056 

53 

1.880625 

0. 867493 

0.260383 

- 0 . 870 B 33 

2.115015 

0.472810 

0. 800118 

0.170467 

5. 891217 

55 

2.237773 

0.938652 

0.146886 

- 1. 190933 

1.711608 

0.584246 

0.859691 

0.160129 

7.968090 

57 

2.662101 

0.980398 

0.063505 

- 1.594152 

1.381423 

0.723891 

0 . 918457 

0.118777 

8.673126 

59 

3.166245 

0. 998153 

0. 017341 

- 2.088923 

1.160384 

0.861784 

0.963856 

0.066249 

6.334193 

61 

3.765218 

1.001521 

0.000420 

- 2.685096 

1.047534 

0. 954623 

0.989018 

0.025432 

2.348178 

63 

4. 47 6858 

1.000564 

- 0.001226 

- 3.396295 

1.008070 

0.991994 

0 . 998120 

0.005931 

0.323759 

65 

5.322358 

1.000042 

- 0.000219 

- 4.241773 

1.000475 

0.999525 

0.999889 

0.000622 

0.007837 

67 

6.326896 

1.000000 

- 0.000004 

- 5.246311 

1.000000 

1.000000 

1. 000000 

0.000011 

0.000081 

69 

7.520387 

1.000000 . 

- 0. 000000 

- 6.439803 

1.000000 

1.000000 

1.000000 

0.000000 

0 . 000006 

71 

8.938375 

1.000000 

- 0.000000 

- 7. 857791 

1.000000 

1.000000 

1.000000 

0.000000 

0.000000 

73 

10. 623086 

1.000000 

- 0.000000 

- 9.542502 

1.000000 

1.000000 

1.000000 

0. 000000 

0. 000000 

75 

12.624691 

1.000000 

- 0.000000 

- 11. 544107 

1.000000 

1.000000 

1.003000 

0.000000 

0.000000 

77 

15.002798 

1.000000 

- 0.000000 

- 13.922214 

1.000000 

1.000000 

1.000000 

0. 000000 

- 0.000000 

79 

17.828227 

1.000000 

- 0.000000 

- 16. 747643 

l . 000000 

1.000000 

1.000000 

0.000000 

- 0.000000 

81 

21.185119 

1.000000 

- 0.000000 

- 20.104535 

1.000000 

1.000000 

1.000000 

0.000000 

- 0.000000 

83 

25. 173443 

1.000000 

- 0.000000 

- 24.092858 

1.000000 

1.000000 

1.000000 

0.000000 

- 0. 000000 

85 

29.911970 

1.000000 

- 0.000000 

- 28. 831386 

1.000000 

1.000000 

1.000000 

0.000000 

- 0.000000 

87 

35. 541814 

1. 000000 

- 0.000000 

- 34.461230 

1.000000 

1.000000 

1. 000000 

Oi 000000 

- 0.000000 

89 ' 

42.230632 

1.000000 

- 0.000000 

- 41.150048 

1.000000 

1.003000 

1.000000 

0.000000 

- 0.000000 

91 

50. 177617 

1.000000 

- Q . 000001 ) 

- 49.097032 

1.000000 

1.000000 

1.000000 

0.000000 

- 0. 000000 

93 

59.61 9429 

1.000000 

- 0.000000 

- 58. 538845 

1.000000 

1.000000 

1.000000 

0.000000 

- 0.000000 

95 

70. 837247 

1.000000 

- 0 . 000001 ) 

- 69.756662 

1.000000 

1.000000 

1.000000 

0.000000 

- 0.000000 

97 

84. 16 5135 

1.000000 

- 0. 000000 

- 83.084551 

1.000000 

1.000000 

1.000000 

0.000000 

- 0.000000 

99 

100.000000 

1.000000 

- 0.000000 

- 98.919416 

1.000000 

1.000000 

1.000000 

- 0.000000 

- 0.000000 
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S = 0.01010, 

XI = 0.00167, Z * 0.01010, Z/L » 0.00041, R0 = 1.00000, BETA = 0.0 , PP = 0.0 , NIT = 5, K = 2 

TE = 0.04932, OE = 1.00000, MACHE = 7.1200000, RHOE * 1.00000, MUE = 0.16576, PE = 0.01409, DUEDS ** 0.0 

CF * 2.53603, QH = -0.67314, HG = -0.2581S6D-02, EPSVD = 0.383510D-02, CO * 0.0 , KEP = 54, NITTOT = 13 

F2N<1 I = 0.440340, F2N<3» = 0.441521, F2NNI1) = 0.346997, F2NNI31 = 0.347182 

CHIHAX = 9.0204010 01, .GAMMA = 1.0000000 00, XI BAR = 0.0 

REX = 4.142740 03 HALL HEAT TRANSFER HEAT TRANSFER COEFFICIENTS 

to 4.226893D 02 5.9290310-04 2.469393D-03 

BTU/ < FT++2+S EC > BTU/I IN**2*SEC*DEGREE R» LBM/I I N**2* SEC » . 

STE = 5.151 7440-03, STINF = 5.1517440-03, CHEDGE = 5.7732340-03, CHINF * 5.7732340-03, CHINF*SQRT (REX) = 3.715891D-01 

CFE = 9.725905D-03, CFINF = 9.725905D-03 , CF ( TOTAL) = 1.116334D-02, CFBAR*$«RTIREX ) = 7. 185183D-01, CFI NF*SQRTIREX) * 6.2599930-01 

CFINF/2 = 4.8629520-03, CHINF/(CFINF/2> = 1.1871870 00, CHEDGE/ (CFE/2) => 1.187187D 00 

X/REFLEN - 1.0103000-02, Z/REFLEN = 1.0100000-02, RO/REFLEN = 1.0000000 00, DELTA/X = 1.6049080-01, DELSTR/X = 1.032528D-01 
THETA/REFLEN => 9. 17949 7D-05 , DELSTR/REFLEN = 1.0428530-03, DELTA/REFLEN = . 1.620957D-03, OELSTRAXI /REFLEN = 0.0 
THETA/DELTA = 5.6630110-02, OELSTR/DELTA = 6.4335630-01, DELSTR/THETA = 1.1360680 01, OELSTRAXI = 0.0 
OELSTRK - 5.309330-04, DELSTR - 1.04285D-03, DELTA * 1.620960-03, THETA = 9.17950D-05, RETHETA = 3. 76517D 01 
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0.003403 
0.007445 
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0.017955 
0.024735 
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0.042361 
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0.460139 
0.550094 
0.656969 
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0.934611 
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2.662101 
3.166245 
3.765218 
4.476858 
5.322358 
6.326896 
7.520387 
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10.623086 
12. 624691 
15.002798 
17.828227 
21.185119 
25.173443 
29.911970 
35.541814 
42.230632 
50.177617 
59.619429 
70.837247 
84.165135 
100.000000 


y 

Y/THETA 

0.0 

0.0 

0.000001 

0.008089 

0. 000002 

0.017822 

0.000003 

0. 029559 

0.000004 

0.043747 

0. 000006 

0.060948 

0.000008 

0.081870 

0.000010 

0.107412 

0.000013 

0.138724 

0.000016 

0.177287 

0.000021 

0.225020 

0.000026 

0.2 8442 8 

0.000033 

0.358799 

0.000042 

0.452470 

0.000052 

0.571181 

0.000066 

0.722542 

0.000084 

0.916627 

0.000107 

1.166701 

0.000137 

1.490023 

0.000175 

1.908585 

0.000225 

2.449398 

0. 000289 

3.143578 

0. 000369 

4.022927 

0.000469 

5.112263 

0.000589 

6.416603 

0.000726 

7.907598 

0.000874 
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0.001185 
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0.001336 
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0.001485 
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0.001800 

19.613444 

0.001989 
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0.002212 
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0.002477 

26.985420 
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0. 007446 

81.117970 
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0.001009 
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0.005420 

0.002477 

0.007962 

0.003451 
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0.010040 
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0.012743 
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0.046890 

0.020319 

0.057754 
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0.032346 

0.086786 

0.040918 

0.106098 
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0. 193280 
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0.236022 
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0.288072 

0.170021 
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0.289508 
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0.708552 
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0.793842 
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0.859631 
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0.957032 
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0.999995 
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1.000000 
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FP ( N » 

FPP 

0.440340 

0.346997 

0.441521 

0.347182 

0.442925 

0. 347473 
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0.347720 
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0.556628 
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ETA 

G = H/HE 

CP1N ) 

V 

T/TE 

RHO/RHOE 

RHOMU/RHOEMUE 

CP 

CHI 
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0.308317 

- 0.000080 

1.038029 

0.963364 

0.991197 

- 0. 772230 

0.011989 

9 

0.024735 

0.095346 

0 . 310672 

- 0.000152 

1.060821 

0^942666 

0.985988 

- 0.764255 

0.022034 

11 

0.032790 

0.097859 

0.313483 

- 0.000268 

1 . 0B7883 

0.919217 

0. 979871 

- 0.754482 

0.037329 

13 

0.042361 

0. 100876 

0 . 316B42 

- 0.000448 

1.120007 

0.892851 

0.972707 

- 0.742533 

0.059757 

15 

0.053732 

0.104501 

0.320856 

- 0.000723 

1. 158126 

0. 863464 

0.964346 

- 0.727979 

0.091730 

17 

0.067241 

0.108868 

0.325655 

- 0.00 U37 

1.203332 

0.831026 

0.954630 

- 0.710347 

0.136301 

19 

0.083292 

0. 114141 

0.331391 

- 0.001753 

1.256899 

0.795609 

0.943399 

- 0.689139 

0.197311 

21 

0.102362 

0.120526 

0.338247 

- 0.002662 

1.320297 

0. 757405 

0. 930498 

- 0.663859 

0.279590 

23 

0.125019 

0. 128262 

0.346438 

- 0.003997 

1.395199 

0.716744 

0.915796 

- 0. 634048 

0.389249 

25 

0.151937 

0.137739 

0.356213 

- 0.005947 

1.483462 

0.674099 

0.899197 

- 0.599337 

0.534130 

27 

0.183919 

0.149318 

0.367857 

- 0.008791 

1.587076 

0^630090 

0.880671 

- 0. 559491 

0.724530 

29 

0.221917 

0.163559 

0.381684 

- 0.012930 

1.708026 

0.585471 

0^860276 

- 0.514460 

0.974372 

31 

0.267063 

0.181159 

0.398029 

- 0.018948 

1.848041 

0.541113 

0 . 83 8194 

- 0. 464404 

1.303112 

33 

0.320700 

0. 203024 

0.417158 

- 0.027692 

2.008111 

0.497901 

0;814775 

- 0.409696 

1. 738911 

35 

0.384426 

0.230319 

0.439261 

- 0.040400 

2.187662 

0.457109 

0.790574 

- 0.350883 

2.323954 

37 

0.460139 

0. 264536 

0.464163 

- 0.058865 

2.383205 

0.419603 

0.766411 

- 0.288606 

3.123598 

39 

0.550094 

0.307535 

0.490967 

- 0.085686 

2.586253 

0.386660 

0.743439 

- 0.223489 

4.242427 

41 

0.656969 

0*361507 

0.517263 

- 0.124585 

2.780463 

0 ^ 3S9652 

0.723234 

- 0.156027 

5.852707 

43 

0.783948 

0.428700 

0.537707 

- 0. 180794 

2.938528 

0.340306 

0.707919 

- 0.086585 

8.243053 

45 

0.934811 

0.510591 

0.541684 

- 0.261405 

3.020957 

0.331021 

0.700299 

- 0.015821 

11.885163 

47 

1.114052 

0. 605837 

0.510659 

- 0.375330 

2.982359 • 

0.335305 

0.703837 

0.053425 

17.419902 

49 

1.327008 

0.706500 , 

0.422569 

- 0.532000 

2. 795509 

0.357717 

0.721735 

0.110826 

25.074756 

51 

1.580020 

0. 796148 

0.288588 

- 0.737532 ' 

2.491990 :■ 

0.401286 

0.753853 

0.137765 

33.544577 

53 

1.880625 

0. 865404 

0.194156 

- 0.992337 

2.148537 

0.465433 

0. 795674 

0.145338 

46.806357 

55 

2.237773 

0.923141 

0.131736 

- 1.304232 

1.784312 

0.560440 

0. 848051 

0.144405 

69 . 723220 . 

57 

2.662101 

0. 965601 

0.073435 

- 1.691043 

1.457619 

0.686050 

0.903978 

0.118130 

68.736690 

59 

3. 166245 

0.990045 

0.030200 

- 2.170701 

1.215670 ’ 

0. 822592 

0.952016 

0.075064 

82.895443 

61 

3. 765218 

0.999397 

0.006889 

- 2.758273 

1.073927 

0.931162 

0.983016 

0. 034204 , 

45.917732 

63 

4.47 6858 

1.000592 

- 0.000241 

- 3.466866 

1.015086 

0.985138 

0.996491 

0.009660 ’ 

11.053678 

65 

5.322358 

1.000101 

- 0.000341 

- 4.312059 

1.001231 

• 0. 998770 

0; 999713 

0.001295 

0.632257 

67 

6. 326896 

1.000000 

- 0.000016 . 

- 5.316594 

1.000005 

0.999995 

0.999999 

0.000041 

- 0.001488 

69 

7.520387 

1.000000 

0.000000 

- 6 . 510085 

1.000000 

1.000000 

1.000000 

- 0.000000 

- 0.000045 

71 

8.938375 

1.000000 

0.000000 

- 7.928073 

1.000000 

1.000000 

1.000000 

- 0.000000 

- 0.000006 

73 

10.623086 

1.000000 

0.000000 

- 9.612784 

1.000000 

1 . 000000 - 

1.000000 

- 0.000000 

- 0.000001 

75 

12. 624691 

1.000000 

0.000000 

- 11.614389 

1.000000 

1.000000 

1.000000 

- 0.000000 

- 0.000001 

77 

15.002798 

1. 000000 

0. 000000 

- 13.992496 

1.000000 . 

1.000000 

1.000000 

- 0.000000 

- 0.000000 

79 

17.82 8227 

1.000000 

0.000000 

- 16.817925 

1.000000 . 

1.000000 

1.000000 

-O.'OOOOOO . 

- 0.000000 

81 

21.185119 

1.000000 

0.000000 

- 20.174817 

1.000000 

1.000000 

1.000000 

- 0.000000 

- 0.000000 

83 

25.173443 

1.000000 

0.000000 

- 24. 163141 

l.oooboo 

1.000000 

1.000000 

- 0.000000 

- 0.000000 . 

85 

29.911970 

1. 000000 

0. oooooo 

- 28.901668 

1.000000 

1 . 000000 . 

1.000000 

- 0.000000 . 

- 0.000000 

87 

35.541814 

. 1.000000 

0.000000 

- 34.531512 

1.000000 

1.000000 

. 1.000000 

- 0.000000 

- 0.000000 

89 

42.230632 

1.000000 

0.000000 

- 41.220330 

1.000000 

1.000000 

1.000000 

- 0. oooooo 

- 0.000000 

91 

50.177617 

1.000000 

0.000000 

- 49 . 167315 

1.000000 

1.000000 

1.000000 

- 0.000000 

- 0.000000 

93 

59.619429 

1.000000 

0.000000 

- 58.609127 

1.000000 

1.000000 

1.000000 

- 0.000000 

- 0.000000 

95 

70.837247 

1.000000 

- 0.000000 

- 69. 826945 

1.000900 

1 . 000000 . 

1.000000 

- 0.000000 

-0. oooooo 

97 

84. 165135 

1.000000 

- 0.000000 

- 83.154833 

1.000000 

1.000000 

1.000000 

- 0. OOOOOO 

- 0.000900 

99 

100.000000 

1. 000000 

- 0.000000 

- 98.989698 

1.000000 ' 

1.000000 

1.000000 

- 0.000000 

- 0.000007 
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s = 


0.02010, 



XI = 0.00333, Z = 0.02010, Z/L = 0.00082, R0 = 1.00000, BETA = 0.0 , PP = 0.0 , NIT - 3, K 

TE = 0.00932, Ub * 1.00000, MACHE = 7.1200000, RHOE = 1.00000, MUE = 0.16576, PE = 0.01409, OUEDS = 0.0 

CF = 1.87774, QW = -0.50068, HG = -0.192015D-02, EPSVO = 0.383510D-02, CQ = 0.0 , KEP = 54, NJTTOT = 16 

F2N(1) = 0.459947, F2N(3) = 0.461242, F2NN<1) = 0.380316, F2NNI3) = 0.380529 

CHI MAX = 1^725450 02, GAMMA = 1.0000000 00, XI8AR = 0.0 
REX = 8.244460 03 


WALL HEAT TRANSFER 
3. 143950D 02 
BTU/ ( FT**2*S EC ) 


HEAT TRANSFER COEFFICIENTS 
4.409996D-04 1. B36727D-03 

8TU/I IN**2*SEC*0EGREE R> LBM/C I N**2*SEC> 


STE = 3.8318520-03, STINF = 3. 831 852D-03 , CHEDGE = 4.294115 D-03 , CHINF = 4. 2941150-03, CHINF*SQRT(REX) = 3.899014D-01 

CFE « 7.2013270-03, CFINF = 7 .2013270-03, CF(TOTAL • = 9.115823D-03, Cf BAR*SQRT(REXl = 8. 277077D-01 , CFI NF* SORT (REX > = 6. 5387340-01 

CFINF/2 = 3. 600663D— 03, CHI NF/< CFINF/2 ) = 1.1925900 00, CHEDGE/ ( CFE/2 » = 1.1925900 00 

X/REFLEN « 2.0100000-02, Z/REFLEN = 2.0100000-02, RO/REFLEN = 1.0000000 00, OELTA/X = 1. 1809340-01 , OELSTR/X = 7.460366D-02 
THETA/REFLEN = 1.3242570-04, OELSTR/REFLEN = 1.499534D-03 , DELTA/REFLEN = 2.373677D-03, DELSTRAXI/REFLEN = 0.0 
THETA/OELTA = 5.5789250-02, OELSTR/OELTA = 6.3173440-01, OELSTR/THETA * 1.132359D 01, OELSTRAXI = 0.0 
DELSTRK = 7.43 856D-04, DELSTR = 1.499530-03, DELTA = 2.373680-03, THETA * 1.324260-04, RETHETA = 5.43 1 730 01 


S * 0.04010, 

XI = 0.00665, Z = 0.04010, Z/L = 0.00164, RO = l.OQOOO, BETA * 0.0 , PP = 0.0 , NIT = 3, K * 4 

TE * 0.04932, UE = 1.00000, MACHE = 7.1200000, RHOE = 1.00000, HUE = 0.16576, PE = 0.01409, DUEOS = 0.0 

CF =* 1.41259, QW = -0.37824, HG = -0.1450580-02, EPSVO = 0.3835100-02, CQ = 0.0 , KEP = 53, NITTOT = 19 

F2NI1I * 0.488721, F2N(3) = 0.490189, F2NNIU = 0.431215, F2NN(3) = 0.431480 

CHIMAX = 1. 8551490 02, GAMMA = 1.0000000 00, XI BAR * 0.0 

REX = 1.64479D04 WALL HEAT TRANSFER HEAT TRANSFER COEFFICIENTS 

2.37510QJD 02 3.331535D-04 . 1.3B7557D-03 

BTU/(FT**2«SEC) BTU/UN*»2*SEC*DEGREE R) LBM/( IN**2*SEC) 

STE = 2.89 4 7760-03, ST/iNF* = 2.8947760-03, CHEDGE = 3.243993D-03, CHINF * 3.2439930-03, CHI NF*SQRT ( REX 1 = 4.1604010-01 

CFE = 5.4174050-03, CFINF =. 5.417405D-03, CFt TOTAL) = 7.1916860-03, CFBAR*SQRT(REX) = 9.2232940-01, CFINF*SQRT( REX) = 6.947789D-01 

CFINF/2 = 2. 708703D-03 , CHINF/ ( CFINF/2 I ■ 1.1976190 00, CHEDGE/ICFE/2) = 1.1976190 00 

X/REFLEN = 4.010000D-02, Z/REFLEN = 4.0100000-02, RO/REFLEN = l.OOOOOOD 00, DELTA/X = 8.7362840-02, DELSTR/X *= 5.4159200-02 
THETA/REFLEN = 1.9311810-04, OELSTR/REFLEN = 2. 171784D-03, DELTA/REFLEN - 3.503250D-03 , DELSTRAXI/REFLEN * 0.0 
THETA/DELTA = 5.5125430-02, OELSTR/OELTA = 6.1993410-01, OELSTR/THETA = 1.124588D 01, DELSTRAXI = 0.0 
DELSTRK = 1. 043410-03, DELSTR = 2. 171780-03, DELTA = 3.50325D-03, THETA = 1.931180-04, RETHETA = 7.92117D 01 



0.08010. ^ _ 0.01328, Z = 0.08010, Z/t = 0.00329, RO = 1.00000, BETA = 0.0 , PP = 0.9 , NIT = 3, K = 5 

TE = 0.04932, UE = 1.00000, HACHE = 7.1200000, RHOE = 1.00000, MUE = 0.16576, PE * 0.01409, OUEDS = 0.0 

CF = 1.08445, QW = -0.29192, HG = -0.111953D-02, EPSVD = 0.3835100-02, CQ = 0.0 , KEP = 53, NITTOT = 22 

F2N(1» = 0.530272, F2NI3I = 0.532009, F2NNUJ = 0,510378, F2NN(31 = 0.510728 

CHIHAX = 2.7111080 02, GAMMA = l.OOOOOOD 00, XI BAR = 0.0 
REX = 3.285480 04 


HALL HEAT TRANSFER 
1.8330560 02 
BTU/(FT**2*SECI 


HEAT TRANSFER COEFFICIENTS 
2. 571214D-04 1.0708900-03 

BTU/I IN**2*SEC*0EGREE R) L8M/(IN**2*SEC) 


STE = 2.2341320-03, STiINF = 2.2341320-03, CHEDGE = 2.5036510-03, CHINF = 2.5036510-03, CHINF*SQRT (REX) = 4.53B090D-01 

' v 

CFE = 4.1589640-03, CFINF = 4.1589640-03, CF(TOTAL) = 5.595847D-03, CFBAR*SQRT(REX> = 1.0142970 00, CFINF* SORT (REX) = 7. 5384920-01 
CFINF/2 a 2.0794820-03, CHINF/(CFINF/2) = 1.2039780 00, CHEDGE/ (CFE/2) = 1.2039780 00 

X/REFLEN = 8.0100000-02, Z/REFLEN a 8.0100000-02, RO/REFLEN = l.OOOOOOD 00, DELTA/X * 6; 5743650-02 , DELSTR/X = 3.970486D-O2 
THETA/REFLEN = 2.8533950-04, DELSTR/REFLEN a 3.180359D-03, DELTA/REFLEN = 5.2660670-03, DEL STR A XI /REFLEN = 0.0 
THETA/DELTA = 5.4184570-02, DELSTR/OELTA = 6.039345D-01 , OELSTR/THETA = 1.1145880 01, OELSTRAXI = 0.0 
DELSTRK = 1.468130-03, OELSTR = 3.180360-03, DELTA = 5.266070-03, THETA = 2.85340D-04, RETHETA = 1.170380 02 


S a 0.16010, 

XI = 0.02654, Z = 0.16010, Z/L = 0.00657, RO = 1.00000, BETA = 0.0 , PP = 0.0 , NIT = 5, K = 6 

TE = 0.04932, UE = i.OOOOO, MACHE = 7.1200000, RHOE = 1.00000, MUE * 0.16576, PE = 0.01409, OUEDS a 0.0 

CF = 0.85488, QW = -0.23310, HG = -0.8939770-03, EPSVD = 0.383510D-02, CQ = 0^0 , KEP = 52, NITTOT = 27 

F 2N ( 1 1 = 0.590979, F2N( 3 ) = 0.593165, F2NNUI = 0.642201, F2NN43I a 0.642719 

CHIMAX = 4.0231740 02, GAMMA a l.OOOOOOD 00, XI BAR = 0.0 

REX = 6.56686D 04 HALL HEAT TRANSFER HEAT TRANSFER COEFFICIENTS 

1. 463747 D 02 2.0531870-04 B. 5513540-04 

BTU/(FT**2*SEC> BTU/I IN**2*SEC*DEGREE R) LBM/ ( IN**2*SEC I 

STE a 1.7840170-03, STINF = 1.7840170-03, CHEDGE = 1.9992350-03, CHINF = 1.9992350-03, CH1NF*SQRT(REX> = 5.123216D-01 

CFE = 3.2785310-03, CFINF = 3. 2785310-03, CF( TOTAL) = 4.3537700-03, CFBAR+SQRT (REX) = 1.1156920 00, CFINF*SQRT(REX) = 8.4015230-01 

CFINF/2 = 1.639265D-03 , CHINF/ (CFINF/2 ) a 1.2195920 00, CHE0GE/(CFE/2) = 1.2195920 00 

X/REFLEN = 1.601000D— 01, Z/REFLEN = 1.6010000-01, RO/REFLEN = l.OOOOOOD 00, DELTA/X = 5.006776D-02, OELSTR/X = 2. 940175D-02 
THETA/REFLEN = 4.2722340-04, DELSTR/REFLEN a 4.7072200-03, OELTA/REFLEN = 8.0158480-03, OELSTRAXI /REFLEN = 0.0 
THETA/DELTA a 5.3297340-02, DELSTR/OELTA = 5.8723920-01, DELSTR/THETA a 1.1018170 01, OELSTRAXI = 0.0 
DELSTRK a 2.06483 D— 03 , OELSTR = 4. 7O722D-03, DELTA a 8.015850-03, THETA = 4.272230-04, RETHETA = 1.75235D 02 



8k 


XI = 0.03900, Z - 0.24010, Z/L = 0.00985, R0 - X. 00000, BETA = 0.0 , PP = 0.0 , NIT = 4, K = 7 

TE 3 0.04932, UE = X. 00000, MACHt = 7.X200000, RHOE = X. 00000, MUE = 0.X6576, PE = 0.01409, DUEDS = 0.0 

CF = 0.74717, QH = -0.20513, HG * -0. 786708 D-03 , EPSVD = 0.3835100-02, CO = 0.0 , KEP = 52, NITTOT = 31 

F2N11 ) = 0.632542, F2N(3) = 0.635063, F2NNI 1) = 0.740600, F2NNI3) = 0.741458 

CHI MAX = 5.1034320 02, GAMMA = l.OOOOOOD 00, XIBAP = 0.0 

REX = 9.848240 04 HALL HEAT TRANSFER HEAT TRANSFER COEFFICIENTS 

1.2881100 02 1. 8068220-04 7.525267D-04 

^ BTU/<FT**2*SEC) BTU/( IN**2*SEC*DEGREE R> LBM/I I N**2* SEC) 

STEi!'= 1.5699510-03, STINF = 1.56995X0-03, CHEDGE = 1. 759345D-03 , CHINF = 1.759345 D-03, CHINF*SQRT IREX > = 5.521X570-01 

CFE = 2. 865467D— 03 , CFINF = 2.8654670-03, C Ft TOT AL ) = 3. 826509D-03, CFBAR*SQRT (REX) = 1.2006310 00, CF I NF* SORT ( REX > = 8.9923810-01 

CFINF/2 = 1.432734D-03, CHINF/(CFINF/21 * 1.2279630 00, CHEOGE/ I CFE/2 ) = 1.2279630 00 

X/REFLEN = 2.4010000-01, Z/REFLEN = 2.401000D-01, RO/REFLEN = 1.0000000 00, DELTA/X = 4.3U801D-02, DELSTR/X = 2.4845950-02 
THETA/REFLEN = 5.457521D-04, DELSTR/REFLEN * 5.9655140-03, DELTA/REFLEN = 1.0352630-02, DEL STR A XI /REFLEN = 0.0 
THETA/DELTA = 5. 2716260-02, DELSTR/OELTA = 5.7623150-01, DELSTR/THETA = 1.0930810 01, DELSTRAXI = 0.0 
DEL STRK = 2. 541320-03, DELSTR = 5. 965510-03, DELTA = 1.035260-02, TFETA = 5.457520-04, RETHETA = 2.238520 02 


S = 0.32010, 

XI = 0.05306, Z = 0.32010, Z/L = 0.01313, RO = 1.00000, BETA « 0.0 , PP = 0.0 , NIT = 4, K = 8 

TE = 0.04932, UE = 1.00000, MACHE = 7.1200080, RHOE = 1.00000, MUE = 0.16576, PE = 0.01409, DUEDS = 0.0 

CF = 0.68322, QW = -0.18817, HG = -0. 7216570-03, EPSVO = 0.3835100-02, CQ = 0.0 , KEP = 51, NITTOT = 35 

F2NUI = 0.667848, F2NI3I = 0.670668, F2NNI1I = 0.828464, F2NNC3J = 0.829249 

CHIMAX = 6.0905320 02, GAMMA = 1.0000000 00, XI BAR = 0.0 

REX = 1.31296D 05 HALL HEAT TRANSFER HEAT TRANSFER COEFFICIENTS 

1.1816000 02 1.6574220-04 6.903025D-04 

BTU/( FT**2*SEC ) BTU/I IN#*2*SEC*DEGRE£ R) LBM/ II N**2*SEC ) 

STE = 1.4401360-03, STINF = 1.4401360-03, CHEDGE = 1.6138700-03, CHINF = 1.613B70D-03, CHINF* SORT I REX) = 5. 847825D-01 

CFE = 2.6202170-03, CFINF = 2.620217D-03, CFI TOTAL) = 3.5077210-03, CFBAR^SORT (REX ) = 1.2710160 00, CF1NF*SQRT( REX) = 9.4943060-01 

CFINF/2 = 1.3101090-03, CHI NF/ ( CF INF/2 I = L.231859D 00, CHEDGE/ ( CFE/ 2 ) = 1.231859D 00 i 

X/REFLEN = 3.201C0OD-O1, Z/REFLEN = 3. 2 01 0000-01 , RO/REFLEN = 1.0000000 OD, OELTA/X = 3. 875620D-02, OELSTR/X = 2. 211976D-02 
THETA/REFLEN = 6.522566 0-04, DELSTR/REFLEN = 7.0B0535D-03, DELTA/REFLEN = 1. 2405860-02 , DELSTRAXI /REFLEN = 0.0 
THETA/DELTA = 5. 257650D-C2 , DELSTR/OELTA = 5. 707413 D-Dl , OELSTR/THET A = 1.0855440 01, DELSTRAXI = 0.0 
DELSTRK = 2.947680-03, DELSTR = 7.0 80540-03 , DELTA = 1. 240590-02, THETA = 6.52257D-04, RETHETA = 2.67538D 02 

THE END K=KEND 



FORTRAN SOURCE LISTING OF PROGRAM LTBLCEQL 

In the following source listing, the subroutines in the 
program are -listed alphabetically, except for MAIN which- is 
at the beginning of the list, and except for the inter- 
polation and differentiation subroutines which are at the 
end of the list. 

In each subroutine, the statement numbers are in 
ascending order with an increment of 10. The cards in 
each subroutine are sequence numbered in < columns 77 
through 79. Further, the subroutines are sequenced by 
an alphabetic label in columns 74 and 75. The first 
subroutine, MAIN, is labeled A, the second subroutine, 
BLUNT1, is labeled B, and the forty-second (and last) 
subroutine is labeled AP. The interpolation and dif- 
ferentiation subroutines with their alphabetic labels 
are listed below. 

Subroutine 

DERIV3 
FD3 
FD5 

INTERP 
INTER3 
INTERS 
INTRP5 
TLU 


Alphabetic Label 

AI 

AO 

AP 

AJ 

AL 

AM 

AN 

AK 


- 104 - 



C PROGRAM LTBLCEQL A 1 

C (LAMINAR AND/OR .TURBULENT BOUNDARY LAYERS IN CHEMICAL EQUILIBRIUM) A 2 

C A3 

C A 4 

C A PROGRAM FOR A 5 

C 2-D AND AXISYMMETRIC NONREACTING PERFECT GAS AND EQUILIBRIUM A 6 

C CHEMICALLY REACTING LAMINAR, TRANSITIONAL AND/OR TURBULENT A 7 

C BOUNDARY-LAYER FLOW A 8 

C A 9 

C BY A ID 

C A 11 

C E. C. ANDERSON, E. W. MINER AND C. H. LEWIS A 12 

C AEROSPACE ENGINEERING DEPT. A 13 

C VIRGINIA POLYTECHNIC INSTITUTE AND STATE UNIVERSITY A 14 

C BLACKSBURG, VA. 24061 A 15 

C PHONE - ( 703 )- 55 2- 6 126 A 16 

C PROGRAM DEVELOPED UNDER CONTRACT NAS1-9337 WITH NASA A 17 

C LANGLEY RESEARCH CENTER A 18 

C A 19 

C A 2D 

C MAIN ROUTINE A 21 

C A 22 

C MAIN CALLS SUBROUTINES ACDETA, CHANGE, COEF, DELTAS, DERIV3, A 23 

C ENERGY, GEOM, INIT, MOMENT, PRFILE , PROP, READIN, VISCO, WALL, A 24 

C WRITE1, AND WRITE2. A 25 

C . A 26 

C MAIN PROVIDES CONTROL OF THE FLOW OF LOGIC IN THE PROGRAM AND A 27 

C SOME CALCULATIONS. A 28 

C ' 1 A 29 

C STAGNATION ENTHALPY ENERGY EQUATION IN LEVY-LEES VARIABLES A 30 

C A 31 

COMMON /ARRAY1/ AO( 101 ) , AOB ( 101 ) , AOBP (10 1 ) , A1 ( 101 ) , A2 ( 101 ) , A3 ( 101 ) A 32 

1, A4(101),C1(101 ),C1N( 101),C(101 ),CP( 101) ,CHI( 101) ,DN(102) ,DN2(102) A 33 

2, EPS0 (101 ) , EPSPLdOl ) ,F1 (101 ) ,F1N(10 1 ) , FINNdOl ), F2 ( 101) , F2N( 101), A 34 


3F 2NN( 101) , FC ( 101 ) , FCNl 101 ) ,FCP( 10 1) , PREQ ( 101 ) ,RORO£ ( 101 ) , T1 ( 101) , T A 35 
41NI101). T 1NN( 101 ),T2{101),T2N(.101),T2NN( 101) . TC ( 101 ) ,TCN( 101) ,TH(1 A 36 
5D1) ,THP(101) ,VC(101) ,XN(102),XN2UD2),Y(101>,YOVDEL(101 >,Y0VTHT(10 A 37 


61 ) , YY( 101 ) A 38 

COMMON /ARRAY2/ PZ ( 50 1 ) , RZ ( 50 1 ) , TWZ( 501 ) , UEZ ( 501 ) , XSTA ( 501 ) ,ZA { 501 A 39 
1) »IPR( 101) ,IPRFL(101) A 40 

COMMON /CNVERG/ CONVRG, CCRN I, CRNI ,DI F ,D IFF , DI FI ,DIF2 , NC A 41 

COMMON /CQEFF3/ CF1 , HGFAC1 , HGFAC2, QW ,SUM A 42 

COMMON /COMWLL/ A1B ,B0 , El ,FF ,F2N1 ,HW ,TB ,THN1 ,TH1 ,TW ,T2N1 ,T21 , VW, I A A 43 
1DW , KTW A 44 

COMMON /CFPR/ CF,PR,PRL ,PRT A 45 

COMMON /EDGPRP/ ALP , ALP1, BETA ,DUEDS,G,GAMEFF , HALP, HE , HESTAT , PE ,PES A 46 
1D,PP,RGAS,ROESO, ROWE, ROW EP, TE, TESO, UE, UER02, UESO, XM , XMUE , XMUEP ,XMU A 47 

2 SO _____ A- 48 

COMMON /FRSTRM/ AMUINF , CX.HFS, HEXl T, PEXI T,PFS , REI NF., RHOFS ,TFS ,T IN, A 49 
1UFS, XMA,XMUFS A . 50 

COMMON /GEOME/ ANGLE ,DS , DX ,DX1 , OX MAX, DX OLD, PNC, R, RO , R EFL EN, SCF.THS A 51 
1HDK,X,XI,XI2,XI0L0, XOLD » XJA Y, XJFAC »Z ,ZOL A 52 

COMMON /INJECT/ CQZ (50 1 ) , CQ, CQ1 , F INJ , KCQ, K INJ ,KNOIN J , KPGRAD A 53 

COMMON /INTGR/ I E ,1 1 MAX, I M , I PRNT, I STOP, ITH ,KL,KPD, KVS LAW, NEQIL ,NEQ A 54 
1L, NIT, NIT1,NIT2,NIT3, NOSE A 55 

COMMON /NTEGER/ 1 1 , IPFL , IPRINT , J J , K, KADETA, KEND, KE P, K FS,KSTOP, KSTR A 56 
IT, KTPW, KTRNSN,LAMTRB,NITTGT A 57 

COMMON /NMLCRD/ ADT EST, ETA INF, XKETA A 58 

COMMON /REF/ AMUREF, CMSTO, HREF, PO PRIM, PREF, RHOREF, RHOSTD, TREF, TREF A 59 
11»UREF, XMUREF A 60 

COMMON /TAPENV/ NT1 ,NT2 , NT3 , NT4, NV A 61 

COMMON /VSCSTY/ C STAR ,EPSVD .OMEGA, VK, XK1 , XK2 , XMU INF A 62 

C A 63 

C A 64 

KREADN-1 A 65 

CALL READIN (KREAON) A 66 

IF (KSTRT.EQ.l) GO TO 20 A 67 

C A 68 

C UPDATE PROPERTIES FOR RESTART' A 69 

C A 7P 
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XGLD=X A 71 

XIOLD=XI A 72 

CALL CHANGE A 73 

DO 10 N=1,IE A 74 

F1(N)=F2(N) A 75 

F1N( N 1= F2N ( N ) A 76 

F1NN(N)=F2NN(N) -A- 7-7 

T1 ( N)=T2( N) A 78 

- T'1N(N) = T2N<N) A 79 

TINN(N) =T2NN(N) A 80 

10 CONTINUE A 81 

NIT=0 A 82 

I STOP=0 A 83 

CALL DELTAS A 84 

CF1=2.0*XMUE*UE*C (1)*A1B/PNC*EPSVD A 85 

C A 86 

C RESUME MARCHING INTEGRATION WITH K=KSTRT A 87 

C A 88 

GO TO 90 A 89 

20 CONTINUE A 90 

CALL INIT A 91 

TIN^l.O/l (G-1„0I*XMA**2 ) A 92 

CALL VISCO (OMEGA, TIN, XMUINFI A 93 

EPSVD=1.0/(XMUINF*REINF)**0.50 . A 94 

KR I T6 1=1 A 95 

CALL WRITE1 (KRITE1J A 96 

IF (NT3.EQ.0) GO TO 30 A 97 

C A 98 

C WRITE INITIAL DATA ON RESTART TAPE A 99 

C A 100 

KREADN=2 A 101 

CALL READIN (KREADN ) A 102 

30 CONTINUE A 103 

11=2 A 104 

CQ1=CQ A 105 

IF UII-KINJI.LE.OI CQ=0«0 ' A 106 

IF (RO.EQ.O.QJ VW=CQ/(EPSVD*SQRT(ROWE*XMU£*DUEOS*( XJFAC+l.OI) ) A 107 

IF (RO.NE.O.O) VW=CQ*SQRT(2.0*XI I/(XMUE*RO**XJFAC*ROWE*UE*EPSVD) A 108 

IF (CQ.NE.O.O.AND.FINJ.NE.O.OI VW=-FINJ A 109 

CALL PRFILE A 110 

XI OLD=X I A 111 

XOLD=X A 112 

ALP1=1.0+0.50*ALP A 113 

HALP=0.50*ALP A 114 

DO 40 N=l» IE A 115 

THP(NI=ALP1*TCN(N )— ALP*FC( N )*FCN( N ) A 116 

40 CONTINUE A 117 

DO 50 N=l» I E A 118 

TH(N]=ALP1*TC(N )— HALP*FC (N ) **2 A 119 

R0R0E(N>=1.0/THCN) A 120 

50 CONTINUE A 121 

GO TO 70 A 122 

60 CONTINUE A 123 

C A 124 

C NORMAL COORDINATE EVALUATED FOR EQUILIBRIUM REF CONDITIONS A 125 

C A 126 

REINF=RHOFS*UFS/XMUFS/SCF A 127 

EPSVO=SQRT (XMUREF*SCF/ ( RHOREF#UREF) ) A 128 

KRI TE 1=2 A 129 

CALL WRITE1 (KRITE1I A 130 

IF (NT3.EQ.0) GO TO 70 A 131 

REWIND NT3 A 132 

KRE ADN=2 A 133 

CALL READIN (KREADN J A 134 

70 CONTINUE -A 135 

Y ( 1 J=0»0 A 136 

YY( 1 I =0, 0 A 137 

DO 80 N=2, IE A 138 

Y{N)=Y(N-l)+PNC*(1.0/R0R0E<NI+1.0/RQR0E(N-l))*DN(N-l)/2.0 A 139 

YY(N)=Y(N)*EPSVD ’ A 140 
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80 CONTINUE A 141 

<50 CONTINUE A 142 

0 A 143 

C BEGIN MARCHING INTEGRATION A 144 

c A 145 

DO 210 K=KSTRT,KEND A 146 

A L PI =1. 0+0. 50* ALP A 147 

HALP=0.50*ALP A 148 

VK=CSTAR*CX/(TE*UFS**2) A 149 

Fill) =0. 00 A 150 

F2< 1 1=0.00 A 151 

FC‘< 11=0.00 A 152 

F2N(l)=l.O0 A 153 

T2N I 1 )=TCN( 11 A 154 

IF (IADW.EQ.O) GO TO 100 A 155 

T2( 1 ) =TC 1 11 A 156 

C A 157 

C BEGIN ITERATION LOOP A 158 

C A 159 

100 F2N1=F2N( 1 ) A 160 

T2N1=T2N( 1 1 A 161 

CCALL HALL ^ A 162 

/CALL ENERGY" A 163 

(.CALL MOMENT • A 164 

VC(1)=VW A 165 

DO 110 N=2i IE A 166 

110 VC ( N) =VC ( N-l I —IX 12* (FCP IN 1 +FCP (N-l ) } +FCIN ) +FC ( N— 1 ) ) *DN( N- 1) *» 50 A 167 

A1B=CRNI*F2N(1)+CCRNI*F1N(1) A 168 

CW=CI1) A 169 

IF (PNC.LT.1.0E-8J GO T.O 120 A 170 

CF=2.0*XMUE*UE*CW*A1B/PNC A 171 

QW=— X MUE*HE*CW*TCN( 1 1 / C PNC*PR ) A 172 

120 CONTINUE A 173 

N IT=N IT +1 A 174 

NITT0T=NITT0T+1 . A 175 

I STOP=I ST OP+1 A 176 

IF I I STOP. GT. 100) GO TO 230 A 177 

IF (K.EQ.l) GO TO 130 A 178 

IF INIT.LT.NIT3> GO TO 130 A 179 

HRITE (6,2401 NIT,DX,X A 180 

WRITE (6,250) F2N I1),F2N1,DIF A 181 

IPRIIM=IPR(1I— 1) A 182 

IF (ABS(1.-X/XSTA< IPRIIM) J.LE.l.E-6) 11=11-1 A 183 

X=XOLD+DX/2.0 A 184 

DX=0X/2«0 A 185 

NIT=0 A 186 

CALL DELTAS A 187 

GO TO 100 A 188 

130 CONTINUE A 189 

IF (NIT.LT.3) GO TO 100 A 190 

IF ( D IF.GT .CONVRG ) GO TO 100 A 191 

AB5T=A8S(F2{ 1E>— F2 ( IE— 4 ) ) A 192 

IF ( KADETA. EQ.O) GO TO 140 A 193 

IF I A8ST.LT. ADTEST I GO TO 140 A 194 

CALL ADDETA A 195 

GD TO 100 A 196 

140 IF (K INJ .EQ.O .OR.KINJ.EQ.I IMAX) GO TO 150 A 197 

IF (NIToEQ. l.AND. ABS (1. O-XOLD/XST A ( K IN J ) ).LE.1*E— 61 GO TO 100 A 198 

150 IF { KNO INJ. EQ.O. QR.KNOI NJ. EG. 1 1 MAX) GO TO 160 A 199 

IF (NIT.EQ.l. AND.ABSI i.O-XOLD/XSTAIKNOINJ) J.LE.l.E-6) GO TO 100 A 200 

160 CONTINUE A 201 

CALL COEF A 202 

CALL WRITE2 A 203 

IF CNEQIL.EQ.l) GO TO 180 A 204 

IF (NEQIL. EQ.O. AND. NEQL. EQ.O) GO TO 180 A 205, 

C A 206 

C BEGIN EQUILIBRIUM GAS SOLUTION A 207 

C - A 208 

NEQIL=NEQL A 209 

XI=Q.O A 210 
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XI OLO-OaO 

A 

211 


X=0.0 

A 

212 


CALL GEOM 

A 

213 


X= XOLD 

A 

214 


IF (NOSE.EQ.l ) GO TO 170 

A 

215 


IF (LAMTRB. EQ.2) CALL DELTAS 

A 

216 

170 

CONTINUE 

A 

217 


HGFAC.l- (RHOES*UF.S*CX) /-(778. 0*SCF**2) 

A 

2T8 


HGFAC2=RH0FS*UFS*32. 1740/144.0 

A 

219 


CALL PROP 

A 

220 


CALL 0ERIV3 ITH, XN, IE, 1, THP ) 

A 

221 


SUM=0.0 

A 

222 


I PRNT= 1 

A 

223 

C 


A 

224 

c 

RETURN AND OBTAIN EQUILIBRIUM GAS SOLUTION' FOR FIRST STATION 

A 

225 

c 


A 

226 


GO TO 60 

A 

227 

180 

CONTINUE 

A 

228 


XOLD=X 

A 

229 


X I OLD=X I 

A 

230 


CALL CHANGE 

A 

231 


DO 190 N=l» IE 

A 

232 


Fit NI =F2 t N) 

A 

233 


F1N{N)=F2N(N> 

A 

234 


F1NN(N)=F2NN(N) 

A 

235 


T1 ( NJ = T2 1 N) 

A 

236 


TIN ( N ) =T2N( N ) 

A 

237 


T1NNINI=T2NN(N) 

A 

238 

190 

CONTINUE 

A 

239 


N IT=0 

A 

240 


I STOP=0 

A 

241 


IF (KSTOP.EQ.l) GO TO 200 

A 

242 


CALL DELTAS 

A 

243 


UER02=UE*R0** (2.0*X JFAC) 

A 

244 


XMUEP=XMUE 

A 

245 


ROWEP=ROWE 

A 

246 


CF1=2.0*XMUE*UE*C(1 )*A1 B/PNC*EPSVD 

A 

247 

200 

CONTINUE 

A 

248 


IF (KSTOP.EQ.O) GO TO 210 

A 

249 


WRITE (6,260) 

A 

250 


WRITE (6,260) 

A 

251 


GO TO 220 

A 

252 

210 

CONTINUE 

A 

253 


WRITE (6,270) 

A 

254 


WRITE (6,270) 

A 

255 

220 

STOP 

A 

256 

230 

WRITE (6,280) 

A 

257 


GO TO 220 

A 

258 

C 


A 

259 

c 


A 

260 

c 


A 

261 

240 

FORMAT (1H0,///6H NIT*,I5,5H DX=,£14.6,4H X=,E14.6/) 

A 

262 

250 

FORMAT (9H F2N(1 )=, 1PE14.6, 7H F 2N1* ,E 14. 6, 6H D I F=, E14» 6///) 

A 

263 

260 

FORMAT UH1,/////50X,9H THE END ,14H X=XSTA(I IMAX) ) 

A 

264 

270 

FORMAT (1H1»/////5QX,9H THE END ,7H K=KEND) 

A 

265 

280 

FORMAT (25H STOP *** ISTOP.GT.100// ) 

A 

266 


END 

A 

267- 
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10 


20 


30 

40 


SUBROUTINE ADDETA 

SUBROUTINE ADDETA CALLS SUBROUTINES I NTER3 AND DERIV3. 

SUBROUTINE ADDETA IS CALLED BY MAIN. 

SUBROUTINE ADDETA INCREASES ETA INE IF F C IE » AND F(IE-4) DIFFER BY 

MORE THAN ADTEST. 

GENERATES NEW ETA SPACING AND INTERPOLATES FOR NEW VELOCITY AND 

ENTHALPY PROFILES. 

COMMDN /ARRAY1/ A0< 101 ) »AOB( 101) ,A0BP(101) ,A1 (101 1 ,A2{101 ) , A3 (101) 
1, A4{101),CI[101),C1N(101),C(101>,CP( 101), CHI 1 101), DN( 102 j ,DN2( 1021 
2 1 EPSO( 101 ) ,EPSPL(10i)',Fl (101) , FIN (10 1 ) , FINN(101 ) , F2 ( 101 >, F2N(101), 
3F2NN(101),FC(101I ,FCN( 101),FCP( 101) ,PREQ{ 101) ,ROROE ( 101 ) , T1 ( 101 ) ,T 
41NI101) ,T1NN(101),T2(1D1),T2N(101 ),T2NN( 101) , TCI 101 1 ,TCN( 101) ,TH(1 
501) ,THPl 1011 .VCUOll » XN( 102) » XN2( 102 ) ,Y(101) *YOVDEL(101 ) * YOVTHT (10 
61 ) , YY ( 101 ) 

COMMON /COMWLL/ A1 B f BO, El, FF, F2N1 ,HW,TB,THN1,.TH1,TW, T2N1,T21,VW, I A 
1DW.KTW 

COMMON /GEOME/ ANGL E, OS , DX ,DX 1 , DXMAX,DXOLD ,PNC, R, RO.REFLEN , SCF , THS 
1H0K , X , XI » XI2 » XI OLD »XOLD »X JAY *X J FAC, Z* ZOL 

COMMON /INTGR/ IE , I IMAX, I M, IPRNT» ISTOP ,1 TH f KL, KPD, KVSLAW, NEQIL ,NEO 
1L»NIT»NIT1»NIT2»NIT3,N0SE 

COMMON /NMLCRD/ ADTEST , ETA INF, XKETA 


WRITE (6,80) ISTOP 
ETAIN2=ET AINF+5.0 

IF ( XKETA. EQ.1.0) DETA1=£TAIN2/FL0AT ( IE-1 ) 

IF (XKETA.NE.1.0) 0ETA1=ETAIN2* ( XKETA-1.0) /( XKETA**IM-1 .0 ) 

DN2 ( 1 )=0ETA1 

XN2( 1)=0.0 

DO 10 N=1,IE 

0N2 ( N+l l=DN2 (N)*XKETA 

XN21 N+1)=*XN2(N) +DN2(N) 

CONTINUE 
00 40 N=2,IE 

IF (XN2(N ).GE.£TA INF ) GO TO 30 

JC=0 

JC=JC+1 

IF (XN2(N).GT.XN( JC)) GO TO 20 

IF (JC.LT.2) JC=2 

IF ! JC.GT.t IE-1) ) JC=IE— 1 

CALL INTER3 ( XN2( N ) , XN ( JC- 1) , XN ( JC ) , XN( JC+1) , Fl( JC-l ) ,F1 ( JC) , FI ( JC 
1+1) ,F2(N) I 

CALL INTER3 ( XN2( N) , XN ( JC-l) , XN ( JC) ,XN( JC+1 ) ,T1 ( JC-l ) ,T 1 ( JC) ,T1 (JC 
1+1) ,T2(N) ) 

GO TO 40 
F2(N)=1.0 
T2(N)=1.0 
CONTINUE 

CALL DERIV3 ( F2,XN2, IE, 1,F2N ) 

CALL DERIV3 < F2N,XN2 , IE,1 , F2NN ) 

CALL DERIV3 ( T2 ,XN2, IE , 1 »T2N) 

CALL DERIV3 (T2N , XN2, IE, 1, T2NN ) 

VC(1)=VW 
DO 50 N=l, IE 
DN( N)=DN2 (N ) 

XN( N)=XN2 (N) 

F1(N)=F2(N) 

FI N( N )=F2N ( N) 

F1NN(N)=F2NN(N) 

Ti(N)=T2(N) 

T1N(N)=T2N(N) 

T1NN( N)=T2NN(N) 

FC(N)=F1(N) 

FCN(N)=F1N(N) 

TC(N)=T1(N) 

TCN(N )=T1N (N ) 

FCP(N)=0.0 
IF IN.EQ.l) GO TO 50 






B 1 
B 2 
B 3 
.B 4 
B 5 
B 6 
B 7 
B 8 
B 9 
B 10 
B 11 
B 12 
B 13 
B 14 
B 15 
B 16 
8 17 

B 18 
B 19 
B 20 
B 21 
B 22 
B 23 
B 24 
B 25 
B 26 
B 27 
B 28 
B 29 
B 30 
B 31 
B 32 
B 33 
B 34 
B 35 
B 36 
B 37 
B 38 
B 39 
B 40 
B 41 
B 42 
B 43 
B 44 
B 45 
B 46 
B 47 
B 48 
B 49 
B 50’ 
B 51 
B 52 
8 53 

B 54 
B 55 
B 56 
B 57 
B 58 
B 59 
B 60 
B 61 
B 62 
B 63 
B 64 
B 65 
B 66 
B 67 
B 68 
B 69 
B 70 
B 71 
B 72 
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50 


60 


70 

C 

C 

C 

80 

90 

100 


110 

120 


VC ( N) =VC( N-l)-(F2(N) + F2(N-l) )*DN(N-1 1*0.50 

CONTINUE 

ETAINF=ETAIN2 

WRITE (6 t 901 DX,XKETA,ETAINF,AOTEST 
WRITE (6,1001 
DO 60 N=1 , I E,KL 

WRITE (6,110) XN(N),YY(N),YOVTHT(N) ,YOVOEL(N) ,FC( N) ,FCN (N) , F2NN( N 1 
1,EPSPL(N1,A0BP(N1,N 
WRITE (6,120) 

DO 70 N=l» IE,KL 

WRITE (6,110) XN(N),TC(N),TCN(N),VC(N1,TH(N), ROROE (N) ,C(N),CP(NI ,C 
1HI ( N) ,N 
CONTINUE 
RETURN 


FORMAT ( 1H0 »9X, 42 HI NTER MEDIATE PROFILE DATA-ETAINF INCREASED, 2X,6H 
1 ISTOP=, 13) 

FORMAT <1H0,2X,3HDX=,F12.6,1X,6HXKETA*=,F12.6, 1X,7HETAINF=,F12.6, IX 
1,7HADTEST=,F12, 6) 


FORMAT (1H0,/124H 
1/DELTA F=U/UE 

2 AOBP ,4X,2H N/l 
FORMAT (9F14.6, 15 1 
FORMAT ( 1H0 ,/123H 

1 V T/TE 

2 CHI ,5X,2H N/ ) 
END 


ETA 
FP ( N) 


ETA 

RHO/RHOE 


Y(N)/L 

FPP 


Y/THETA 

EPS* 


6=H/HE 

RHOMU/RHOEHUE 


GP (N 1 
CP 


B 73 
8 74 

B 75 
B 76 
B 77 
B 78 
B 79 
B -80 
B 81 
B 82 
B 83 
B 84 
B 85 
B 86 
B 87 
B 88 
8 89 

B 90 
B 91 
8 92 

B 93 
B 94 
B 95 
B 96 
B 97 
B 98 
B 99 
B 100 
B 101- 


C 

C 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


SUBROUTINE BLUNT 1 

SUBROUTINE 8LUNT1 CALLS SUBROUTINES DENS IT, FD5, INTER5, MACH, 
SLOW, AND VISCO. 

SUBROUTINE BLUNT1 IS CALLED BY SUBROUTINE GEOH. 

SUBROUTINE BLUNT1 CALCULATES THE EDGE AND REFERENCE PROPERTIES 
FOR THE STAGNATION POINT OF A BLUNT BODY. 

COMMON /ARRAY2/ PZ( 501 1 , RZ( 501 ) , TWZ (501 1 , UEZ( 501 1 ,XSTA( 501), ZA( 501 
II ,IPR( 101),IPRFL(101) 

COMMON /EDGPRP/ ALP, ALP 1, BETA, DUEDS ,G,GAHEFF, HALF, HE ,HESTAT ,PE , PES 

10, PP»RGAS,ROES0,R0WE, ROWEP ,TE,TESO »U£ »UERD2,UE$0, XM, XMU E, XMUEP,XHU 

2S0 

COMMON /FRSTRM/ AMU INF, CX, HFS, HEX IT ,PEXI T,PFS,REI NF , RHOFS.TFS ,TIN, 
1UF S, XMA , XHUFS 

COMMON /GEOME/ ANGLE, DS ,DX,DX1, DXMAX ,DXOLD , PNC , R, RO , REFLEN, SCF.THS 
1HOK,X,XI,XI2,XIOLD,XQLD,XJAY,XJFAC,Z»ZOL 

COMMON /INTGR/ IE ,1 1 MAX , I M, I PRNT, ISTOP, ITH,KL , KPQ,KVSL AW, NEQIL ,NEQ 
1L,NIT,NIT1,NIT2,NIT3,N0SE 

COMMON /REF/ AMUREF,CMSTO, HREF, POPRIM,PREF,RHOREF,RHOSTD,TREF,TREF 

11 , UREF , XMUREF \ 

COMMON /STAG/ HSTAG,P10,PSTAG,RHOSTG ,T10,TSTAG 
COMMON\>SUTH/ CPRIM 

COMMON /TAPENV/ NT1,NT2 ,NT3,NT4,NV 

COMMON /VSCSTY/ CSTAR, EPS VD , OMEGA, VK ,XK1, XK2, XMUI NF 
DIMENSION ZZ( 9), UEJ(3), PEJ(3), HESTJ(3) 


IF (NEQIL.EQ.il GO TO 20 


****************************************************************** 

PERFECT GAS STARTING AND REFERENCE CONDITIONS 

****************************************************************** 


C l 
C 2 
C 3 
C 4 
C 5 
C 6 
C 7 
C 8 
C 9 
C 10 
C 11 
C 12 
C 13 
C 14 
C 15 
C 16 
C 17 
C 18 
C 19 
C 20 
C 21 
C 22 
C 23 
C 24 
C 25 
C 26 
C 27 
C 28 
C 29 
C 30 
C 31 
C 32 
C 33 
C .34 
C 35 
C 36 
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c 

c 

c 

c 

c 


30 


40 


50 

C 

C 

C 


60 


C PR I M=C ST AR / ( { G-l . 0 ) *X M A**2 *T FS 1 
T10*0. 50+1.0/1 (G-1.0)*XMA**2) 

P10={ ( ( (G+l .0 )*XHA*XM A) /2.0 >**(G/IG-1.00 ) ) )*{ ( (G+1.00)/ ( 2.00*G*XMA 
1*XM A~( G- 1*00) )-)**( l«0Q/( G-1.00) > ) /{ G*XMA*XMA) 

DO 10 J=1 * I IMAX 

CALL MACH < ZA ( J ) ,DUM2,0UM2 ,0UM3 ) 

PZU)=PZ(J J*P10 

TEl=T10/(i.0+ (G— 1.0)/2.0*XH**2) 

U£Z(J )=SQRT( 2.0*( T10-TE1) ) 

CONTINUE 

Z=0.0 

R0=0.0 

XM=0.0 

PE=P10 

TE=T10 

UE=0. 0 

CALL DENSIT (ROWE, PE, TE) 

CALL VISCO (OMEGA, TE,XMUE) 

PP=0.0 

CALL FD5 (X,-XSTA( 3),-XSTA( 2) ,XSTA{ 1) ,XSTA(2) ,XSTA(3> ,-UEZ(3 ) ,-UEZ 
1 (2) ,UEZ(1) ,UEZ(2),UEZ(3),DLI EOS ) 

UER02=0«0 
HE=T10 
PNC=0. 0 

PNC=SQRT(XMUE/{ ( XJFAC+i.O)*DUEDS*ROWE) ) 

BETA=1.0/ (1.0+XJFAC) 

ALP=0.0 
. XMUSO=XMUE 
XMUEP=XMUE 
ROESO=ROWE 
ROWEP=ROWE 
TESO=TE 
PESO=PE 

WRITE (6,100) TlOjPlO 
WRITE (6,110) UE,TE ,PE 
RETURN 
CONTINUE 

it*** ************************************************************** 

EQUILIBRIUM GAS STARTING AND REFERENCE CONDITIONS 

****************************************************************** 

REWIND NT1 
DO 30 J=l,3 

READ (NT1 > OUM, DUM1, UEJ ( J ) , PEJ( J ) ,HESTJ ( J) 

CONTINUE 

P0PRIM= 10. 0**PEJ(1) *2116. 2240/144.0 
PST AG=PQ PRIM 

HSTAG=1 0. 0**HESTJ (1 )*RGAS*1 .80 
PL=PEJ( 1) 

ZZ(2)=HESTJ 111 

DO 40 J=l,4 

IF (J.EQ.2) GO TO 40 

CALL SLOW (PL,ZZ,2,J,NT2,NV,N£RR) 

CONTINUE 

TSTAG=ZZ( 11*1.80 

RHOSTG=lO.0**ZZ(3)*RHOSTD 

XMUSTG=ZZI4) 

DO 50 J=l, I IMAX 

PZ( JI=PZ(J)*P0PRIM/P10 

CONTINUE 

FREESTREAM CONDITIONS 

PATMS=PFS*144 .0/2116. 2240 
PL=AL0G10(PATMS> 

IH 1)*TFS/1,80 
00 60 J=2»5 

CALL SLOW <PL,ZZ,1,J,NT2,NV,NERR) 

CONTINUE 

HFS=10.0**ZZ(2)*RGAS*1.80 
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RH0FS=10.0**ZZI3I*RH0STD C 109 

XMUFS=ZZ(4> C 110 

CX=ZZI5)*RGAS C 111 

C C 112 

C REFERENCE CONDITIONS — C 113 

C C 114 

UREF=UFS C 115 

RHOREF=RHOF$ C 116 

PREF=RH0FS*UFS**2 C 1.1.7. 

HREF=UFS**2 ... C 118 

"TR'EF=UFS**2/CX C 119 

XMU REF= 15 18.60+19 8. 601/1 TREF+198. 60 ) *< TREF/51 8. 60) **1. 50*3. 71 9E-07 C 120 

C C 121 

C XMUREF EVALUATED USING SUTHERLAND VISCOSITY LAW.XMUREF MAY BE CHOS C 122 

C ARBITRARILY C 123 

C C 124 

XMUINF=XMUFS/ XMUREF C 125 

RE INF=RHOFS*UFS/XMUFS/SCF C 126 

Z=0.0 C 127 

R0=0.0 C 128 

X=0.0 C 129 

P10=P0PRI M+144. O/PREF C 130 

T10=TSTAG/TREF C 131 

HE=HSTAG/HREF C 132 

HESTAT=HE C 133 

T E=T10 C 134 

PE=P10 C 135 

ROWE=RHOSTG/RHOREF C 136 

XMUE=XMUSTG/XMUREF C 137 

UE=0« 0 C 138 

PNC=0.0 C 139 

PP=0.0 C 140 

ALP=0.0 C 141 

DO 70 J=l,3 C 142 

UEJ(J)=UEJ< JI/UREF C 143 

PEJLJ)=10.0**PE J( J)*2116. 2240/144.0 C 144 

70 CONTINUE C 145 

REWIND NT1 C 146 

J=1 C 147 

80 J = J+1 - C 148 

IF <PEJ(2).LT.PZ(J1) GO TO 80 C 149 

IF IJ.LT.3) J=3~ • C 150 

CALL INTER5 (PEJ ( 2 ) ,PZ I J-2 ) , PZ f J— 1 ) , PZ< J » , PZl J+ 1) , PZI J+2) , XSTAC J-2 C 151 
1) ,XSTA< J-ll ,XSTA< Jl ,XSTA( J+l) ,XST AC J+2 ) , XS2 ) C 152 

J=1 C 153 

90 J=J+1 C 154 

IF (PEJ(3).LT.PZ( J) ) GO TO 90 C 155 

IF (J.LT.3) J=*3 C 156 

CALL INTER5 <PE J (3 ) , PZI J-2 I , PZI J-l ) , PZ I J ) f PZ C J+l) » PZ I j + 2) , XSTA (J-2 C 157 
1) , XSTA( J-l) t XSTAI J) «XSTA( J+l) , X5TA( J+2) »XS3) C 158 

CALL FD5 <0.Q»-XS3,-XS2,0.0,XS2»XS3,-UEJ[3) ,-UEJ<2) ,0.0»UEJI2) ,UEJ C159 

113) ,DUEDS) C 160 

PNC=SORT( XMUE/I I X JF AC+1.0 )*OUEO S*ROWE) ) C 161 

BETA=1,0/ (1.0+XJFAC) C 162 

XMUSO=XMUE C 163 

XMUEP^XHUE C 164 

ROE SO=ROWE C 165 

ROWEP=ROWE C 166 

PESO=PE C 167 

TESO=TE C 168 

WRITE <6,100) T10.P10 C 169 

WRITE (6,110) U E, TE, PE C 170 

RETURN C 171 

C C 172 

C C 173 

C C 174 

100 FORMAT ( 1H ,2X, 4HT10= ,E 15. 7,2X, 4HP10= ,E15. 7/) C 175 

110 FORMAT (9H UESO= ,E15.7,8H TESO= ,£15.7,9H PESO= »E15.7I C 176 

END C 177- 


- 112 - 



SUBROUTINE BLUNT 2 D 1 

C D 2 

C SUBROUTINE BLUNT2 CALLS SUBROUTINES DENSIT, EDGE, F05, INTERS* D 3 

C MACH. VISCO, AND ZRO* D 4 

C 0 5 

C SUBROUTINE BLUNT 2 IS CALLED BY SUBROUTINE EGPROP. D 6 

C 0 7 

C SUBROUTINE BLUNT2 CALCULATES THE EDGE PROPERTIES FOR A BLUNT BODY 0 8 

C AT THE VALUES OF X AFTER THE INITIAL VALUE OF X. D • 9 

C D 10 

COMMON /ARRAY2/ PZ ( 5011 »RZ < SOI I » THZ( 501 ) * UEZI501 J ,XSTA ( SOU * ZA ( 501 0 ll 

1), I PR (101), IPRFL (101) 0 1'2 

COMMON /EDGPRP/ ALP, ALPl, BETA, DUEDS,G,GAMEFF,HALP, HE, HESTAT.PE.PES 0 13 

10,PP,RGAS,ROESO,ROWE.RDWEP.TE»TESO.UE,U£R02,UESO,XM, XMUE.XMUEP.XMU D 14 

2S0 0 15 

COMMON /GEOME/ ANGLE, DS , OX, 0X1, DXMAX.OXOLD.PNC-.R, RD, REFLEN.SCF.THS D 16 

1H0K, X, XI.XI2.XI0L0, XOLD.XJAY.XJFAC.Z , ZOL 0 17 

COMMON /INTGR/ I E, UMAX , IM, IPRNT, ISTOP, ITH,Kt , KPO, KVSLAH, NEQI L, NE Q D 18 

1L, NIT, NIT1,N1T2,NIT3, NOSE D 19 

COMMON /STAG/ HSTAG,P10,PSTAG,RH0STG,T10,TSTAG D 20 

COMMON /VSCSTY/ CSTAR, EPS VO .OMEGA ,V K.XKl , XK2, XMUI NF D 21 

C D 22 

C D 23 

IF (NEQlLoEQal ) GO TO 40 0 24 

C 0 25 

C ****************************************************************** o 26 

C EDGE CONDITIONS FOR PERFECT GAS SOLUTION 0 27 

c ****************************************************************** o 28 

C D 29 

IF ( X.LTo XSTA(3) J GO TO 30 0 30 

CALL ZRO ( I IMAX, X, Z.RO ) 0 31 

J=0 0 32 

10 J=J+1 0 33 

IF (X.GT.XSTAI J )) GO TO 10 D 34 

IF (J.LT.3) J=3 D 35 

IF 1 J.GT. (IIMAX-2)) J=I I MAX— 2 0 36 

CALL INTER5 ( X, XSTAI J-2 ) , XSTAI J-l ) , XSTA t J) ,XSTA( J+ 1) , XSTA { J+2 ) ,P2( D 37 

1J-2) » PZf J— 1 ),PZ(J),PZ(JH)»PZ( U+2 )» PE) D 38 

UE=SQRT<2eO*T10*(1.0-IPE/P10>**MG-1.0)/Gm D 39 

CALL FD5 <X,XSTA< J-2),XSTA(J-1),XSTACJ ), XSTA ( J +1 ), XSTAI J+2) ,UEZ( J- D 40 

12),UEZ( J-1),UEZIJ) ,UEZ( JH) ,UEZ( J+2 ) ,DUEDS) 0 41 

20 CONTINUE D 42 

TE=TlO-Oe 50*UE**2 D 43 

CALL VISCO (OMEGA f TE,XMUE) 0 44 

CALL DENSIT (ROWE.P E, TE ) D 45 

PP=— ROWE*UE*OUEOS 0 46 

CALL MACH ( Z, DUN, DUM1 ,DUM3 ) D 47 

RETURN D 48 

30 CONTINUE 0 49 

CALL INTER5 ( X, -XSTA { 3 ) ,-XSTA ( 2) , XSTA( 1 ) , XSTA ( 2 ) , XSTA < 3 1 , ZAO ) » ZA( 0 50 

12) ,ZA(1 ) ,ZA(2),ZA(31,Z) D 51 

CALL INTER5 C X, -XSTA< 3) ,-XSTA<2 ) ,XSTA (1 ) , XSTA < 2 ) , XSTA ( 3 ) , RZ (3 ) , RZ { D 52 

12) ,RZ(1),RZ(2),RZC3),R0) 0 53 

CALL INTERS { X, -XSTAI 3) ,-XSTA( 2 ) ,XSTA(1 ) ♦ XSTA (2 ) »XSTA(3)»PZ(3)»PZ( D 54 

12),PZ(1 ),PZ(2),PZ(3),PE) 0 55 

CALL FDS (X,— XSTA (3 ] ,— XSTA(2 I »XSTA< 1)»XSTA(2)»XSTAI3),— UEZI3),— UEZ D 56 

1(2),UEZ(1),U£Z(2),UEZ{3) .DUEOS) D 57 

UE=SQRT(2.0*T10*(1.0-IPE/P10)**{(G-1.0)/G))) D 58 

GO TO 20 0 59 

C D 60 

C ****************************************************************** o 61 

C EDGE CONDITIONS FOR EQUILIBRIUM GAS SOLUTION D 62 

C ****************************************************************** D 63 

C D 64 

40 CONTINUE D 65 

IF IX.LT.XSTA13) > GO TO 60 0 66 

CALL ZRO U IMAX,X,Z,RO) 0 67 

50 CONTINUE D 68 

CALL EDGE 0 69 

RETURN D 70 

60 CONTINUE 0 71 
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CALL INTER5 < X, -XST AC3 » , -XSTA{ 2 1 , XSTAU * , XSTAC 2 ) , XSTA ( 3) ,ZA( 3 J ,ZA( 0 72 

12) » ZAC 1 ) ,ZA ( 2) , ZA { 3) »Z) 0 73 

CALL INTER5 ( X, -XSTA< 3) ,-XSTA< 2 ) , XSTA{ 1) , XSTA( 2} , XSTA ( 3) ,RZ ( 3 ) iRZ C D 74 
121 ,RZ(i),RZ(2),RZ<3 ),R0> 0 75 

GO TO 50 0 76 

END D 77- 


ID 

20 


30 


C 


40 


SUBROUTINE CHANGE 

SUBROUTINE CHANGE IS CALLED BY MAIN. 

SUBROUTINE CHANGE ADJUSTS THE X STEP SIZE IF NECESSARY TO OBTAIN 
A SOLUTION AT A SPECIFIED VALUE OF X. 

IF INJECTION WERE CONSIDERED, SUBROUTINE CHANGE WOULD INITIATE OR 
TERMINATE INJECTION AT THE SPECIFIED VALUES OF X, 

WHEN INSTANTANEOUS TRANSITION IS TO BE CALCULATED, THIS SUBROUTINE 
CHANGES THE SOLUTION PROCEDURE FROM LAMINAR TO TURBULENT AND 
RESETS DELTA X. 

COMMON /ARRAY2/ PZI5D1) »RZ( 501 >,TWZ< 50 U »UEZ( 501) , XSTA I 501) ,ZAI501 
1) ,IPRtl01l,IPRFL(101) 

COMMON /GEOME/ ANGLE, DS, OX, DXl, DXMAX.DXOLD , PNC ,R,RO, REFLEN, SCF ,THS 
1HOK,X,XI,XI2,XIOLO,XOLD,XJAY,XJ FAC,Z,ZOL 
COMMON /INJECT/ CQZC 5011., CQ,CQ1, FIN J,KCQ,KINJ ,KNOINJ,KPGRAD 
COMMON / 1 NT GR/ IE, UMAX, IM, IPRNT, ISTOP ,1 TH,KL , KPD, KV$LA W, NEQI L,NEQ 
1L,NIT,NIT1,NIT2,NIT3,N0SE 

COMMON /NTEGER/ I I , IPFL , I PR I NT , JJ,K* KAOETA»KEND »KEP» KFS, KST OP, KSTR 
IT »KTPW» KTRNSN,LAMTRB,NITTOT 

COMMON /TRANS/ ATR ,CHICRT,CHI MAX ,GAMMA,XBAR, X I BAR, KTRANS 
COMMON /VSCSTY/ CSTAR, EPSVD, OMEGA, VK.XKl , XK2, XHUINF 


IF IX. EQ. 0.00010) DX=DX1 
IF IX. LE.O. 00010) GO TO 20 
IF (NIT.GT.NIT1) GO TO 10 
DX=2.0*0X 

IF <DX. GT.DXMAX) DX=DXMAX 
GO TO 20 

IF (NIT.LT.NIT2) GO TO 20 

DX=0. 50* DX 

X= X+-D X . . 

IF (JJ.EQ.2) DX=DXOLD 
IF (JJ.EQ.2) X=XOLD+OX 
IPRII = IPRIIH 

IF (XSTAIIPRII).LT.O.O) KST0P=1 
IF IKSTOP.EQ.l) GO TO 60 
IF (X.LE.XSTA(IPRII)J JJ=1 

IF (ABSf l.O-X/XSTAI IPRI ID.LE.l.E-6) 11=11 + 1 
I PRII=I PRI 1 1 ) 

IF IXSTAC IPRID.LT.OoO) GO TO 30 

IF I (X-XSTAI IPRII ) J.GT.l.E-6) JJ=2 

IF (JJ.EQ.2) DX01D=DX 

IF (JJ.EQ.2) DX=XSTAC IPRII )-XOLD 

IF (JJ.EQ.2) 11=11+1 

X=XOLD+DX 

IPRII M=IPR(I I— 1 ) 

I PRI 1=1 PRCI I ) 

IF ( JJ.EQ.2. AND. I XSTA( IPRI IM)+DXOLD).GT. XSTA (IPRI II) DXQLD=XSTA{ IP 
1RI I )— XST A( IPR I IH ) 

IF (KINJ.EQ.O.OR.KINJ.EQ.IIMAX) GO TO 40 

IF (ABS< 1.0-X0LD/XSTA(KINJ)).GT.l.E-6) GO TO 40 

CQ*CQI 

DX=0.010 

DXOLD*DX 

X=XOLD+DX 

WRITE (6,70) X,DX,CQ 
WRITE (6,80) 

IF (KNOINJ.EQ.O.OR.KNOINJ.EQ.IIMAX) GO TO 50 
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IF ( AB S ( 1. O-XQLD/XSTA ( KNOT N J) ) . GT. 1 . E-6 ) GO TO 50 E 63 

CQ=0. ' E 64 

WRITE (6,901 XOLD E 65 

WRITE (6,80) E 66 

50 CONTINUE E 67 

IF (KTRNSN.EQ.O.OR.KTRNSN.EQ.IIMAX) GO TO 60 E 68 

IF (ABSI 1. 0- XOLD/XSTA ( KTRNSN) I.GT.l.E-6) GO. TO 60 E 69 

GAMMA=1.0 E 70 

LAMTRB* 2 E 71 

DX=0.010 E 72 

DXOLD=DX E 73 

X=X0LD+DX E 74 

WRITE (6,100) X, DX E 75 

WRITE (6,80) E 76 

60 CONTINUE E 77 

RETURN E 78 

C E 79 

C E 80 

C E 81 

70 FORMAT (1H1,20X,19H INJECTION BEGINS ,//lX,4H X =,F12.6,5H DX =,F E 82 

112*6, 4H CQr,F12.6) E 83 

80 FORMAT (1H1) E 84 

90 FORMAT (IH1,20X,17H INJECTION ENOS ,//3X,3HX =,F12.6) E 85 

100 FORMAT (1H1,20X,35HTRANSITI0N BEGINS - INSTANTANEOUSLY, //1X,3HX =, E 86 

1F12.6.7H OX =, F12«6) E 87 

END E 88- 


SUBROUTINE COEF F 1 
C F 2 
C SUBROUTINE COEF CALLS SUBROUTINE INTERP. F 3 
C F 4 
C SUBROUTINE COEF IS CALLED BY MAIN. F 5 
C . F 6 
C SUBROUTINE COEF COMPUTES FLOW COEFFICIENTS SUCH AS HEAT TRANSFER F 7 
C COEFFICIENT, SKIN FRICTION COEFFICIENT, ETC. F 8 
C ALSO COMPUTES DELTA, THETA, AND DELTA*. F 9 
C F 10 


COMMON /ARRAY1/ AOI 101 ) , A08( 101 ) , AOBP ( 101) ,A1 ( 101 ) , A2 ( 101 ) , A3 (101 ) F 11 

1, A4(10l) ,C1(101),C1N( 101),C(101),CP(101),CHI( 101 ) , DN ( 102 ) ,DN2 ( 102) F 12 

2, EPSO(101),EPSPL(101) ,F1U01),F1N(1DI),F1NN(101),F2(101I,F2N( 101), F 13 
3F2NN( 101 ) » FC( 101 ) *FCN( 101) ,FCP ( 101) ,PREQ { 101) ,ROROE ( 101 ) ,T1 (101 ) ,T F 14 
41N(10U ,T1NN(101),T2(101 ) ,T2N (101 ) , T2NN (101),TC(101),TCN(101),TH(1 F 15 
501 ) , THP ( lOl).VC(lOl) ,XN(102) , XN2( 102 ) , YC101 ) , YOVDEL ( 101 ) , YOVTHT ( 10 F 16 


61) , YY (101 ) F 17 

COMMON / ARRAY2/ PZ(501 ) ,RZ (501 1 ,TWZ ( 501 ) ,UEZ( 501 ) , XSTA< 501 > , ZAI 501 F 18 
l)tlPR(lOl), IPRFL C101 ! F 19 

COMMON /COEFF/ CFBAR, CFBREX,CFE,CF INF,CFRES,CFREY,CH,CHEOGE ,CHOCF , F 20 
1CHREY,DEL,DELST ,DELTA,DSTARK,OSTRAX , HAFCF, HG, HG1, HG2, QDQT ,RFTHET,R F 21 
2EX, STE, STINF»THET F 22 

COMMON /C0EFF2/ DELORF, OELOX, OS AXOR, DSTODL, DSTORF,DSTOTH,DSTOX,ROR F 23 
1EFL»TH0DEL, THOREF ,XOREFL»ZGREFL F 24 

COMMON /C0EFF3/ CF1, HGFAC1, HGFAC2.QH ,SUM F 25 

COMMON /COMWLL/ A1 B, BO , El , FF, F2N1, HW ,TB ,THN1, TH1, TW, T2N 1,T21, VW, I A F 26 
1DW, KTW F 27 

COMMON /CFPR/ CF, PR,PRL , PRT F 28 

COMMON /EDGPRP/ ALP, ALP1 , BETA, DUEOS , G, GAMEFF, HALP, HE, HEST AT, PE, PES F 29 
10 , PP, RG AS, ROESO,ROWE, ROWEP , TE ,TESO ,UE ,UER02,UES0, XM, XMUE, XMUEP, XMU F 30 
2S0 F 31 

COMMON /FRSTRN/ AMUINF ,CX ,HFS,HEX IT , PEX IT, PFS , REINF, RHOFS, TFS.TIN, F 32 
1UFS, XMA, XMUFS F 33 

COMMON /GEOME/ ANGLE, DS , DX, DX1, OXMAX, OXOLD, PNC, R, RO,REFLEN , SCF, THS F 34 
1HOK,X,XI,XI2,XIOLD,XOLD,XJAY,XJFAC,Z,ZOL F 35 

COMMON / INTGR/ IE, UMAX, IM, IPRNT, ISTOP.ITH ,KL , KPD ,KVSLAH, NEQI L ,NEQ F 36 
IL, NIT, NIT1,NIT2,NIT3, NOSE F 37 

COMMON /NTEGER/ 1 1 , IPFL , IPR INT, JJ ,K, KADETA,KEND ,KEP, KFS ,KSTOP,KSTR F 38 
IT ,KTPW,KTRNSN,LAMTR8,NITT0T F 39 

COMMON /TRANS/ ATR, CHICRT, CHIMAX, GAMMA, XBAR.X I BAR, KTRANS F 40 

, COMMON /VSCSTY/ CSTAR , EPSVD, OMEGA, VK,XK1 , XK2,XMUINF F 41 

C F 42 
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C F 43 

ZOL=Z/ZA(IIMAXJ F 44 

C F 45 

IF (X.EQ.O.OI RETURN F 46 

C F 47 

RESE=ROWE*UE*X/XMUE F 48 

CFRE$=CF*R£SE**0.50 F 49 

REX=REINF*XMUINF*RESE F 50 

SQREX=SQRTIREX» F 51 

RECFAC=PRL**0 .5+GAMMA*{ PRL**< 1. 0/3.0 I-P.R L**0.-5 L F 52~ 

- - IF ( NEQI'L.'EQ. 01 XHAE=UE/ ( (G— 1.0 )*TE)**0.50 F 53 

IF ( NEQIL.EQ.O) HAW=TE*( 1.0+RECFAC*lG-1.0)*XMAE**2/2.0 J F 54 

IF (NEQIL.NE.0 ) HAW=HESTAT+RECFAC*UE**2/2.0 F 55 

HG=QW*EPSVD F 56 

C F 57 

C HG=DI MENSIONLESS HEAT TRANSFER F 58 

C F 59 

IF (KFS.NE.O) QDOT=-HG*RHOFS*UFS**3/ 778.0 F 60 

C F 61 

C QDQT— HEATING RATE 8TU/F00T SQUARE- 5E CO ND F 62 

C F 63 

HG1=HG/ ( H W-HAW) *HGFAC1 F 64 

HG2=HG/ ( HW— HAW I*HGFAC2 F 65 

C F 66 

C HG1-HEAT TRANSFER COEFFICEINT BTU/INCH SQUARE-SECOND-OEGREE R F 67 

C HG2-HEAT TRANSFER COEFFICEINT LBM/INCH SQUARE-SECOND F 68 

C F 69 

STRES=-QW/(HAW-HW>*RESE**0.50 F 70 

CHEDGE=-QW*EPSVO/IROWE*UE*IHAW-HVm F 71 

CFE=CF/(R0WE*UE**2I*EPSVD F 72 

CH0CF=CHEDGE/CFE*2.0 F 73 

CFINF=CF*EPSV0 F 74 

CHR EY=STRES F 75 

CFREY=CFRES F 76 

IF ( BO. NE. 1.01 STINF=-QW*EPSVD/ (HE-HW) F 77 

IF (80.EQ.1.0J STINF=0.0 F 78 

IF (BO.NE.l.O) STE=— QW*EP5VD/ (ROWE*UE*< HE— HW) ) F 79 

IF (BO.EQ.l.O) STE=0.0 F 80 

IF (X.EQ.O.OI GO TO 20 F 81 

CALL INTERP (0. 9950* FC, Y, IE, DELTA I F 82 

00 10 1=1, IE F 83 

YOVDEL ( I )=Y ( I I/DELTA F 84 

10 CONTINUE F 85 

20 CONTINUE F 86 

C F 87 

C AVG. CF*SQRT<REX> F 88 

C F 89 

CFBREX=2. 0*2. 0**0. 50*C( 1>*A1B F. 90 

IF (K.EQ.li GO TO 30 F 91 

IF (LAMTRB.EQ.l) GO TO 30 F 92 

CF2=CFINF F 93 

DSUM=0« 50*DX*(CF2*CF1) F 94 

SUM=SUM+DSUM F 95 

CFBREX=SUM/X*SQREX F 96 

30 CONTINUE F 97 

SUM=CFBREX*X/SQREX F 98 

HAFCF=CF*EPSVD/2.0 F 99 

IF (X.EQ.O.OI GO TO 40 F 100 

CF8AR=CFBREX/SQR£X F 101 

CH=CHRE Y/SQREX F 102 

40 CONTINUE F 103 

THET=0.0 F 104 

DO 50 1=2, IE F 105 

FAC1=FC ( I )*( l.O-FCI 1 1 ) F 106 

FAC2=FC ( I— 1 1* (1 .0— FC( I— 1 1 ) F107 

THET=THET+0.50*(FAC1*FAC2)*DN(I-1)*PNC*EPSVD F 108 

50 CONTINUE F 109 

DELST=0.0 F 110 

DO 60 1=2, IE F 111 

FACl=1.0/R0R0£(I)-FCm F 112 

FAC2=1.0/ROROE(I-1 )-FC( I— l 1 F 113 

0ELST=0£LST«-0.50*<FAC1+FAC2)*DN(I-1>*PNC*EPSV0 F 114 

60 CONTINUE F 115 
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RETHET=R0VIE*UE*THET/(XHUE*EPSVD**2) F 116 

DEL=DELTA*EPSVD F 117 

ROREFL=RO/REFL£N F 1*18 

XOREFL=X/REFLEN F 119 

THOREF=THET/REFLEN F 120 

DST0RF=D£L ST/RE FLEN F 121 

DST0X=DELST/X F 122 

DEL0X=DEL/X F 123 

DEL0RF=0EL/REFLEN F 124 

IF (XJFAC.NE.O.OJ DSTRAX=R0*(SQRTll.0+2.0*DELST/R0)-1.0) F 125 

IF (XJFAC.EQ.0.0) DSTRAX=0.0 F 126 

ZOREFL=Z/REFLEN F 127 

TH0DEL=THET/D€L F 128 

DST0DL= DEL ST/DEL F 129 

DSTOTH=OELST/TH£T F 130 

DS AXOR=DSTRAX/REFLEN F 131 

DO 70 N=1,IE F 132 

70 YOVTHT (NJ=YY{NI/THET F 133 

RETURN- F 134 

END F 135- 


SUBROUTINE DELTAS G 1 

G 2 

SUBROUTINE OELTAS CALLS SUBROUTINE EGPROP. G 3 

G 4 

SUBROUTINE DELTAS IS CALLED BY MAIN AND SUBROUTINE INIT. G 5 

G 6 

SUBROUTINE DELTAS CALCULATES DS -.DELTA XI, THE TRANSFORMATION G 7 

FACTOR - PNC, AND THE PRESSURE GRADIENT TERM - BETA, G 8 

INTEGRATION BY SIMPSONS RULE IS USED FOR CALCULATING DS. G 9 

G 10 

COMMON /EDGPRP/ ALP, ALP1 , BETA, DUEDS , G, GAMEFF, HALP, HE, HESTAT, PE , PES G 11 

10 , PP ,RGAS ,ROE SO, ROWE * ROWEP » TE ,TESO , UE »UERQ2 ,UESO »X M»XMUE»X MU£P,XMU G 12 

2S0 G 13 

COMMON /GEOME/ ANGLE, DS , DX , DX1, OXMAX, OXOLD, PNC, R, RO,R EFLEN, SCF , THS G 14 

1H0K,X,XI,XI2,XI0LD,X0LD, XJA Y, XJFAC , Z , ZOL G 15 

COMMON /INTGR/ IE, I IMAX, IM, IPRNT , I STOP, ITH,KL , KPD , KVSLAW, NEQI L ,N£Q G 16 

1L, NIT, NIT1,NIT2,NIT3, NOSE G 17 

G 18 
G 19 

10 CONTINUE G 20 

HA=X-DX*0.50 G 21 

X1=X G 22 

X=HA G 23 

CALL EGPROP G 24 

U£HA=UE G 25 

ROHA=RO G 26 

ROWEHA=ROWE G 27 

XMUEHA=XMUE G 28 

X=X1 G 29 

CALL EGPROP G 30 

RP=RO G 31 

ALP=UE**2/TE G 32 

IF (NEQIL.NE.OJ ALP=UE**2/HESTAT G 33 

IF { XJFAC.LT. 0.0010 ) GO TO 20 G 34 

GO TO 30 G 35 

.20 CONTINUE G 36 

RP=lcOO G 37 

ROHA=1.00 G 38 

30 CONTINUE G 39 

DS=(UERO2*ROWEP*XMUEP+4.O0*UEHA*(R0HA**2J*ROWEHA*XMUEHA+UE*(RP**2) G 40 

l*RGHE*XMUE)*DX/6.00 G 41 

’ XI =XI OLD+DS G 42 

XI 2=2. 00*XI ’ G 43 

PNC=SQRT ( X 12 )/ ( UE*RP*RQWE ) G 44 

BETA=XI2*DUEDS/(R0HE*XMUE*(UE*RP>»*2) G 45 

RETURN G 46 

END G 47- 
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SUBROUTINE OENSIT IRH0,P,T> H 1 

~ H 2 

SUBROUTINE DENS IT IS CALLED BY SUBROUTINES BLUNT1, BLUNT2, NOZLE1, H 3 
NGZLE2 1 AND WDGFP1. HA 

H 5 

SUBROUTINE OENSIT CALCULATES RHO/RHOINF CORRESPONDING H 6 

TO P/2Q AND T/TREF. H 7 

H 8 

COMMON /EOGPRP/ ALP, ALP1 » BETA, DUEOS, G, GAMEFF, HALP, HE, HESTAT, PE, PES H 9 
10,PP,RGAS,ROE.SO,ROWE,ROWEP_,-TE,TESO,UE,UER02,UESOtXM,XMUE,XMUEP,XMU H 10 
2S0 H 11 

H 12 
H 13 

GM1=G-1.00 H 14 

RHO=G*P/((GMl)*T) H 15 

RETURN H 16 

END H 17- 


SUBROUTINE EDGE I 1 

I 2 

SUBROUTINE EDGE CALLS SUBROUTINES EQLDTA, FD5 , INTER5, INTRP5, I 3 

AND SLOW. I A 

I 5 

SUBROUTINE EDGE IS CALLED BY SUBROUTINES BLUNT2, N0ZLE1, AND I 6 

N0ZLE2. I 7 

I 8 

SUBROUTINE EDGE CALCULATES THE EDGE PROPERTIES FOR EOUILIBRIUM I 9 

GAS SOLUTIONS OF EITHER NOZZLE OR BLUNT BODY FLOWS. FOR A BLUNT I 10 

BODY, THE PRESSURE IS SPECIFIED. FOR A NOZZLE, THE EDGE PRESSURE I 11 

MAY BE SPECIFIED OR IT MAY BE CALCULATED BY THE PROGRAM FROM AN I 12 

ISENT ROPIC GAS EXPANSION. I 13 

I 1A 

COMMON /ARRAY2/ PZl 501) »RZ(501)*'TWZ(501)»UEZI50L)»XSTA(501),ZA(501 I 15 
1), I PR (101), IPRFL ( 101 ) I 16 

COMMON /EDGPRP/ ALP , ALP1 ,BETA, DUEDS , G, GAMEFF, HALP, HE, HEST AT, PE, PES I 17 

10, PP» RGAS, ROESO.ROWE, RQWEP ,T£,TESO,UE, U£R02»UES0* XM» XMUE, XMUEP^XMU I 18 

.2 SO I 19 

COMHON /FRSTRM/ AMUINF , CX ,HFS , HEXIT , PEX1T, PFS, REINF,RHOFS ,TFS ,T IN, I 20 
1UFS, XMA , XMUFS I 21 

COMMON /GEOME/ ANGLE, DS, DX, DX1, DXHAX, DXOLD, PNC, R, RO ,REFLEN, SCF, THS I 22 
1HDK,X«XI , XI 2, XI OLD, XOLD,XJAY,XJFAC,Z,ZOL I 23 

COMMON /INTGR/ IE, I IMAX, IM, IPRNT, ISTOP,ITH,KL,KPD,KVSLAW, NEQIL,NEQ I 2A 
1L, NIT, NIT1,NIT2,NIT3, NOSE I. 25 

COMMON /REF / AMUREF»C MSTD, HREF , PO PRI M» PREF ,RHOREF »RHOSTO» TREFtTREF I 26 

11 , UREF, XMUREF I 27 

COMMON /TAPENV/ NT1 ,NT2 »NT3 ,NTA,NV I 28 

I 29 

DIMENSION ZJ (5 ) , PEJI5 ), TEJI5), HESTJI 5 ), R0WEJI5), XMUEJI5), UEJ I 30 
1(5), XMJI5), XJ ( 5) , ZZ ( 9) I 31 

I 32 
I 33 

IF (KPD.NE.O) GO TO 130 I 3A 

IF (IJK.NE.61) GO TO 10 I 35 

IF (Z.LT.ZJ(2).AND.JK.LT.6) GO TO 70 I 36 

IF (Z.LT.ZJI2)) J=6 I 37 

IF ( Z.LT «ZJ (2 > ) GO TO 30 I 38 

IF ( Z.GE. ZU(2 )• AND.Z.LE.ZJIA) ) GO TO 70 I 39 

IF ( ABS ( XMJ 1 5 )-XMA ).LE. 0.00010) GO TO 70 I AO 

IF ( Z.GT. Z J (5 ) ) GO TQ 110 I A1 

GO TO 90 I A2 

10- CALL EQLDTA I A3 

REWIND NT A I 44 

I JK=61 I 45 

JK=0 I A6 

JJ=0 I A 7 

J=0 I A8 

20 J=J+1 I A9 
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READ (NT4) Z1 ,XS,PEI,HE I ,UEI . XMI 

I 

50 


JK-JK+1 

I 

51 


IF (ZI.LT.Z) GO TO 20 

I 

52 


IF (J.GT.3) J=3 

I 

53 

30 

CONTINUE 

I 

54 


DO 40 K=1,J 

I 

55 


BACKSPACE NT4 

I 

56 


JK=JK— 1 

I 

57 

40 

CONTINUE 

I 

58 


M=1 

I 

59 

50 

CONTINUE 

I 

60 


DO 60 J=M,5 

I 

61 


READ CNT4J ZJ ( J I , XJ ( J J , PEJ I J J , HESTJ( J ) , UEJ t J) , XMJ ( J ) 

I 

62 


JK= JK+1 

I 

63 


IF { ABSI XMJ ( 5I-XMA) .LT* 0» 00010) GO TO 70 

I 

64 


IF (ABS(XPJ(J)-XMAI.LT. 0.00010) JJ=5 

I 

65 


IF (JJ.EQ.5I J=5 

I 

66 


IF (JJ.EQ.5) GO TO 30 

I 

67 

60 

CONTINUE 

I 

68 

TO 

CONTINUE 

I 

69 


CALL INTRP5 (Z, ZJ ,PEJ,5,1, 1,P I 

I 

70 


CALL INTRPS CZ,ZJ ,HESTJ,5»1 ,1 ,H J 

I 

71 


CALL INTRP5 (Z,ZJ,UEJ,5, 1, 1,UE I . 

1 

72 


CALL FD5 (X,XJU 1 ,X JI2 ) , XJ <3),X J ( 4), XJ ( 5 ) ,UEJ (1) , UE J{ 2) ,UEJ(3) ,UEJ 

I 

73 


It 41 t UEJ( 5) »DUEDS) 

I 

74 


CALL INTRPS t Z, 1 J , XHJ , 5 , 1, 1, XM 1 

I 

75 


ZZ(2)=H 

I 

76 


DO 80 J=l,4 

I 

77 


IF (J.EQ.2I GO TO 80 

I 

78 


CALL SLOW (P,ZZ,2 f J . NT2 , NV ,NERR » 

I 

79 

30 

CONTINUE 

I 

80 


PE=10.0**P*2116. 2240/PR EF 

I 

81 


TE=ZZ(1 1*1* 80/TREF 

I 

82 


HESTAT=10.0**H*RGAS*1. 8/HREF 

I 

83 


ROWE=10.0*+ZZ13 I*RHOSTO/RHOREF 

I 

84 


XHUE=ZZ (4) /XMUREF 

I 

85 


PP=-ROWE*UE*DUEOS 

I 

86 


RETURN 

I 

87 

90 

CONTINUE 

I 

88 


00 100 1=1,3 

1 

89 


ZJ(I>=ZJU«-2) 

I 

90 


XJC I)=XJt 1+2) 

I 

91 


PEJtn = PEJtI+2» 

I 

92 


TEJ C I I = TE J C 1+2) 

I 

93 


HESTJt I )= HEST J ( 1+2 1 

I 

94 


ROHEJt I )=ROWEJt 1+21 

I 

95 


XMUEJ ( I )=XMUE J(-I+2 1 

I 

96 


UEJ(II=UEJtI+2) 

I 

97 


XMJ(I)=XMJ(I+2) 

I 

98 

100 

CONTINUE 

I 

99 


M=4 

I 

100 


GO TO 50 

I 

101 

110 

CONTINUE 

I 

102 

120 

READ (NT4I ZI ,XS,PEI ,HE I ,UE I ,XMI 

I 

103 


JK= JK+1 

I 

104 


IF tZ.GT.ZIl GO TO 120 

I 

105 


J= 3 

I 

106 


GO TO 30 

I 

107 

C 


I 

108 

C 

EQUILIBRIUM GAS SOLUTION WITH SPECIFIED PRESSURE DISTRIBUTION 

I 

109 

C 


I 

110 

130 

CONTINUE 

I 

111 


CALL INTRP5 IX, XSTA, PZ , IIHAX, 1 , 1 , PI 

I 

112 


IF (X.GE.XSTAt2I.OR,NOSE.NE.l> GO TO 140 

I 

113 


CALL INTER5 C X,-XSTA{3 > ,-XSTA(2 > »XST Atl 1 ,XST A C2 », XSTA ( 3 1, PZI 3 I , PZ ( 

I 

114 


12),PZ(1),PZ<2»,PZ(3»,P) 

I 

115 

140 

CONTINUE 

I 

116 


PE=P*144.0/PREF 

I 

117 


PATHS=P*144. 0/2116* 2240 

I 

118 


PL=AL0G10(PATMSI 

I 

119 


IF UJK.NE. 61) GO TO 150 

I 

120 


IF (PL. GT. PEJ (21. AND.JK.LT. 61 GO TO 210 

I 

121 


©EK3HA1PAGEB 
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IF IPL.GT.PEJI21 ) J=6 I 122 

IF IJ.EQ. 6 ) GO TO 170 I 123 

IF (PL.LE.PeJl2I.AND.PL.GE.PEJI4t > GO TO 210 1 124 

IF tPL.LT.PEJ(5>) GO TO 270 I 125 

GO TO 250 .1 126 

150 REWIND NT1 I 127 

IJK-61 I 128 

JK=0 I 129 

J=0 I 130 

160 J = J+1 _ I 131 

' READ' TNT1T DUM.XMI ,UI »P I ,HI I 132 

JK=JK+1 I 133 

IF 4PI.GT.PLt GO TO 16Q 1 134 

IF 4J.GT.3) J=3 I 135 

170 CONTINUE I 136 

DO 180 K=1,J I 137 

BACKSPACE NT1 I 138 

JK=JK—1 I 139 

180 CONTINUE I 140 

M= 1 1 141 

190 CONTINUE I 142 

DO 200 K=H» 5 I 143 

READ INTI) DUM* XMJIKl , UEJ(K) »PEJ(K) , HESTJ(K) I 144 

IF ( PL.GT. PEJ (2 1,« AND. JK. GE .6 ) GO TO 150 I 145 

200 CONTINUE I 146 

210 CONTINUE I 147 

CALL INTRP5 I PL, PEJ »XMJ ,5 ,1 ,1 ,XH) I 148 

CALL INTRP5 (PL»PEJ,UEJ»5,1»1*U) I 149 

CALL INTRP5 CPL ,PEJ, HESTJ , 5, 1, 1,H I I 150 

ZZ (2>=H I 151 

DO 220 J=l, 5 I 152 

IF (J.EQ.2J GO TO 220 I 153 

CALL SLOW IPL,ZZ,2,J,NT2,NV,NERR) I 154 

220 CONTINUE I 155 

TE=ZZ 411*1. 80 /TREE I 156 

HESTAT=10.0**H*RGAS*1. 8 /HREF I 157 

UE=U/UREF I 158 

ROWE=10.0**ZZ(3 1*RH0STD/RH0REF I 159 

XHUE=ZZ44)/XHUREF I 160 

K=0 I 161 

230 K=K+1 1 162 

IF <XSTAtKt.LT.Xt GO TO 230 I 163 

IF (K.LT.3) K-3 I 164 

IF (K.GT.tll MAX— 21 ) K=IIMAX-2 I 165 

CALL FD5 ( X, X ST At K— 2) »XSTA(K—1I* XSTAt K) , XSTAt 10-11 , XSTA ( K+2 1 , PZ C K— 2 I 166 

1) ,PZ(K-1I ,PZCK),PZtK+U,PZ(K+21,PPl I 167 

IF IX.GE.XSTAt21.0R.N0SE.NE.lt GO TO 240 I 168 

CALL F05 (X»— X5TAI3 1 »— XSTAt 2), XSTAt It »XSTAI21 ,XSTAI3t ,PZ(31 , PZ ( 2 J , I 169 

1PZI1) ,PZt2) ,PZ431 ,PPI I i70 

240 CONTINUE I 171 

PP=PP*144.0/PREF 1 172 

DUEDS=-PP/(ROWE*UE) I 173 

RETURN I 174 

250 CONTINUE I 175 

DO 260 1=1,3 I 176 

XMJ(n = XMJ< 1+2) I 177 

UEJ<I!=UEJUi-2) I 178 

PEJtIl a *P£J(I + 2J I 179 

HESTJ<I1=HESTJ( 1+2 t I 180 

260 CONTINUE I 181 

M=4 1 182 

GO TO 190 I 183 

270 CONTINUE I 184 

280 READ 4NT11 DUM, XM I , Ul , PI ,HI I 185 

JK=JK+1 I 186 

IF (PI.GT.PL) GO TO 280 I 187 

J=3 I 188 

GO TO 170 I 189 

C I 190 

C I 191 

C I 192 

END I 193- 
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SUBROUTINE EDGE I J 1 

J 2 

SUBROUTINE EDGE1 CALLS SUBROUTINE INTRP5. J 3 

J 4 

SUBROUTINE EDGE I IS CALLED BY SUBROUTINE EQLDTA. J 5 

J 6 

SUBROUTINE 6DGE1 HATCHES THE EXPANSION DATA ON UNIT NT1 TO THE J 7 

NOZZLE GEOMETRY. THIS SUBROUTINE IS USED ONLY FOR EQUILIBRIUM J 8 

GAS SOLUTIONS IF THE PRESSURE DISTRIBUTION IS CALCULATED BY THE J 9 

PROGRAM FROM AN ISENTROPIC GAS EXPANSION. J 10 

J 11 

COMMON / ARRAY2/ PZt 50 1 ) , RZ ( 501 ) , TWZ ( 501 ) , UEZ( 501) , XSTA( 501 ) »ZA( 501 J 12 
1) .IPR(lOl) ,IPRFL(101) J 13 

COMMON /EDGPRP/ ALP , ALP 1, BETA, OUEDS ,G»GAMEFF, HALP ,HE .HESTAT.PE , PES J 14 
10 »PP*RGAS , ROESO , ROWE, ROW EP,TE, T ESO, UE,UER02* UESO, XM, XMUE, XMUEPtXMU 4 15 

2S0 J 16 

COMMON /FRSTP.M/ AHUIN F, CX, HFS, HEX IT, PEXI T, PFS , REI NF , RHOFS , TFS ,T IN , J 17 
•1UF $ ,XMA tXMUFS J 18 

COMMON /INTGR/ IE , I IMAX, I M, IPRNT, ISTOP , ITH ,KL, KPD,KVS LAW, NEQIL , NEQ J 19 

lL,NIT,NITl,NIT2,NiT3,N0SE J 20 

COMMON /REF/ AMUREF, CMSTD»HREF,PD PR IMtPREF,RHOREF»RHOSTD,TR£F» TREF J 21 

ll.UREF, XMUREF J 22 

COMMON /STRT/ KRSTRT, NRSTRT J 23 

COMMON /TAPENV/ NT! ,NT2 ,NT3,NT4,NV J 24 

J 25 

DIMENSION All (51 , XM1(5), Ul( 5), Pl(5), Hl(5) , RU 5) » ZZ(9), XSTA1 4 26 

1C 5) J 27 

J 28 
J 29 

IF CKRSTRT. EQ.O) WRITE (6,150) J 30 

IF CKRSTRT.EQ.O) WRITE (6,160) J 31 

REWIND NT4 J 32 

READ ( NTI ) A,XM,U»P»H J 33 

PST G1=P 4 34 

HSTG1=H 4 35 

KKK=0 J 36 

MMM=0 J 37 

READ (NTI) A, XM»U , P, H J 38 

R X=RZ ( I TH ) *SQRT ( A) J 39 

IF (RX.GT.RZ(l) .AND. XM. LT. 1.0) GO TO 80 4 40 

K=0 . 4 41 

10 K=M-1 4 42 

IF (RX.LT.RZ(K)) GO TO 10 4 43 

K=K— 1 J 44 

ONEOA= 1.0/A J 45 

DO 20 J=1 » K J 46 

AOASTR=(RZ(J)/RZ( ITH) )**2 J 4T 

ASTROA= 1. O/AQASTR J 48 

PZ1=P— ( P— PSTG1 ) /ONEQA*{ ONEOA— ASTROA ) 4 49 

HZ^H— ( H-HSTGl ) /ON EGA* (ONEOA— ASTROA) J 50 

UZ=U-U/ONEOA*( ONEOA— ASTROA ) J 51 

XMZ=XM-XM/ ONEOA* (ONEOA— ASTROA ) ■ J 52 

UE=UZ /UREF J 53 

Z1=ZA( J I J 54 

X1=XSTA( J) J 55 

IF (KRSTRT. EQ.O) HR ITE- C 6, 170) Z1 ,X1, PZ1 ,HZ,UE ,XMZ J 56 

WRITE { NT4) Zl, XI, P Z1,HZ*UE»XMZ 4 57 

20 CONTINUE J 58 

30 CONTINUE J 59 

IF (RX.GT.RZt UMAX). AND. XM.GT.1.0) GO TO 140 J 60 

IF (XM.GT.1.0) GO TO 40 4 61 

IKAX= ITH J 62 

IMIN=1 J 63 

I 1=-1 J 64 

GO TO 50 J 65 
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40 

CONTINUE 

J 

66 


IMAX-IINAX 

J 

67 


I M I N= I TH 

J 

68 


11=1 

J 

69 

50 

CONTINUE 

J 

70 


CALL INTRP5 I RX ,RZ,XSTA ,IMAX, I MIN, 11 , XI ) 

J 

71 


CALL INTRP5 ( RX.RZ, ZA, I MAX, IM IN, 1 1 , Z1 ) 

J 

72 

60 

CONTINUE 

J 

73 


UE=U/UREF 

J 

7.4. 


IF (KRSTRT.EQ.O) WRITE (6,170) Z-l,Xl,P,HyUE,XM 

J 

75 


WRITE (NT4) Z1,X1,P,H,UE,XM 

J 

76 


IF (KKK.EQ. 1) RETURN 

J 

77 

70 

READ (NT1 ) A,XM,U»P, H 

J 

78 


R X=RZ ( I TH) *SQRT < A ) 

J 

79 


IF (RX.GT.RZ( 1). AND.XM.LT. 1.0) GO TO 70 

J 

80 


GO TO 30 

J 

81 

80 

REWIND NT1 

J 

82 


READ (NTl ) A , XM ,U, P , H 

J 

83 


K=0 

J 

84 

90 

K=K+l 

J 

85 


READ (NTl) A, XM ,U, P , H 

J 

86 


A0ASTR=(RZ(1)/RZ( ITH) )**2 

J 

87 


IF ( A. GT. AOASTR) GO TO 90 

J 

88 


IF (K.LT.3) REWIND NTl 

J 

89 


IF (K.LT.3) MMM=1 

J 

90 


IF (K.LT.3) GO TO 110 

J 

91 


DO 100 J = 1 » 3 

J 

92 


BACKSPACE NTl 

J 

93 

100 

CONTINUE 

J 

94 

110 

CONTINUE 

J 

95 


IF (MMM.EQ.l) READ (NTl) A,XMjU,P.,H 

J 

96 


DO 120 J=l» 5 

J 

97 


READ (NTl) A11(J),XM1(J),UI(J),P1(J),H1(J) . 

J 

98 

120 

CONTINUE 

J 

99 


CALL INTRP5 ( AOASTR, All, XM1, 5, 1, 1 , XM) 

J 

100 


CALL INTRP5 (AOASTR, All ,U1 ,5,1 ,1 ,U ) 

J 

101 


CALL INTRP5 (AOASTR, All, PI, 5,1, 1,P) • 

J 

102 


CALL INTRP5 (AOASTR, All, HI, 5, 1, 1,H) . 

J 

103 


Z1=ZA{ 1 ) 

J 

104 


X1=XSTA( 1 ) 

J 

105 


DO 130 J=1 ,5 

J 

106 


BACKSPACE NTl 

J 

107 

130 

CONTINUE 

J 

108 


GO TO 60 

J 

109 

140 

KKK=1 

J 

110 


P - PEXIT 

J 

111 


U=UREF 

J 

112 


H=HEXI T 

J. 

113 


XM=XMA 

J 

114 


Z1=ZA(I IMAX ) 

J 

115 


X1=XSTA(IIMAX) 

J 

116 


GO TO 60 

J 

117 

C 


J 

118 

C 


J 

119 

C 


J 

120 

150 

FORMAT (1H0»40X, 30 HEDGE CONDITIONS FOR EQUILIBRIUM NOZZLE) 

J 

121 

160 

FORMAT (1H0 ,5X,IHZ,12X ,4HXSTA,8 X ,6HL0G10 P, 6X, 6HL0G10H, 6X, 2 HUE, 1DX, 

J 

122 


14HMACH) 

J 

123 

170 

FORMAT (1H0,2X,1P9E12.4) 

J 

124 


END 

J 

125- 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


10 

20 

30 

c 

c 

c 

40 

C 

c 

c 

c 

c 

c 

c 

c 


50 

60 

c 

c 

c 


SUBROUTINE EFFMU ( LAMTRB , HOMEGY , I I»DSTARK) K 

K 

SUBROUTINE EFFMU CALLS SUBROUTINES 0ERIV3, INTERP* AND RHOMU* K 

K 

SUBROUTINE EFFMU IS CALLED BY SUBROUTINES ENERGY AND MOMENT. K 

K 

SUBROUTINE EFFMU CALCULATES THE RHOMU PRODUCT AND ITS DERIVATIVE K 
WITH RESPECT TO ETA. K 

CALCULATES THE TERMS AO, AOB, AND AOBP WHICH, FOR THE TURBULENT K 
CASE, INCLUDE THE EODY VISCOSITY - EPSPL. K 

FOR THE TRANSITION REGIME, THE EDDY VISCOSITY IS REDUCED BY THE K 
TRANSITION INTERMITTENCY FACTOR -GAMMA. K 

K 


COMMON /ARRAY!/ AOUOl) ,A0B(101 ) , A0BPU01 ) , AlHOI > ,A2(101 I , A3(101 > K 

1, A4(10l),ClC101),ClN(l01)tC<101),CP< 101) ,CHH lOll ,DN(102) ,DN2{102) k 

2 , E PSOl 101 ) , EPSPL (101),F1(101),F1N(IQ1), FINN! 101 ) , F2 ( 101), F2N( 101 ) » K 
3F2NNC101) ,FC{ 101) ,FCN(101) ,FCP( 101 ) , PREQ (101 » .ROROE (101 ),T1 (101 ) , T K 
41N(101 ) ,T1NN{101 )»T2(101),T2N(101), T2NN{ 101) ,TC(101) ,TCN( 101 > ,TH(1 K 
501 ) , THP I 101 } , VC( 101 ) , XNI102 ) ,XN2 ( 102 1 ,Y ( 101 1 , YOVDEL (101 l,Y0VTHT(10 K 


61 ) , YY( 101) K 

COMMON /CFPR/ CF, PR,PRL,PRT K 

COMMON /EDGPRP/ ALP, ALP1 , BETA, DUEDS , G.GAHEFF, HALP , HE, HESTAT , PE, PES K 
10,PP,RGAS,ROESO,ROWE,RQWEP,TE,TESO,UE,UER02,UESO,XM,XMUE,XMUEP,XMU K 
2S0 K 

COMMON /GEOME/ ANGLE, DS, DX, 0X1 , OXMAX.DXOLD , PNC , R, RO ,REFLEN, SCF,THS K 
1H0K, X , X I , X 12 , X IOLD, XOL D, XJ AY, XJFAC , l , ZOL K 

COMMON /INJECT/ CQZI501 ) »CQ»CQi»FINJ,KCQ, KINJ , KN01NJ, KPGRAD K 

COMMON /INTGR/ I E , I IMAX, IM, IPRNT, I STOP, ITH ,KL, KPD, KVSLAW, NEQIL ,NEQ K. 
1L,NIT,NIT1,NIT2,NIT3, NOSE K 

COMMON /TRANS/ ATR,CHICRT, CHI MAX , GAMMA, XBAR, X IBAR, KTRANS K 

COMMON /VSCSTY/ CSTAR ,EPSVD , OMEGA , VK , XK1 ,XKZ, XHUINF K 

K 

K 

LAMTRB = 1 LAMINAR B.L. ,=2 TURBULENT B. L. K 

K 

HOMEGY = 1 MOMENTUM EQ.,= 2 ENERGY EC. K 

— K 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 


IF INEQIL.EQ.O) GO TO 10 
GO TO 130,140), LAMTRB 
GO_-TO ( 20^,140 Jj^LAMTRB^ 
GO TO <40,80 : ), MOMEGY 
GO TO (60,100), MOMEGY 


K 38 
K 39 
K 40 
K 41 
K 42 
K 43 


LAMINAR K 44 

K 45 

CONTINUE K 46 

K 47 


C =RHOHU/RHOEMUE, CP = DCDT *DTDETA 
COEFFICIENTS FOR MOMMENTUM EQUATION 
DO 50 1=1, IE 
PERFECT GAS 

CALL RHOMU (OMEGA, THU ), C(I) »DCDTH, VK 1 
C P ( I) =DCDTH*THP ( I > 

AO ( I )=C( I) 

AOB ( I )=1 .0 
AOBP( I )=0«0 
CONTINUE 
GO TO 120 
CONTINUE 

EQUILIBRIUM GAS 

CALL 0ERIV3 (C, XN, IE, 1, CP ) 

DO 70 1=1, IE 
AO ( I )=C( I ) 

AOB(I)=1.0 
AOBRCF)'=0.0 


OF POOR 


K 48 
K 49 
K 50 
K 51 
K 52 
K 53 
K 54 
K 55 
K 56 
K 57 
K 58 
59 
K 60 
K 61 
K 62 
K 63 
K 64 
K 65 
K 66 
K 67 
K 68 
K 69 
K 70 
K 71 
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70 

CONTINUE 

K 72 


GO TO 120 

K 73 

C 


K 74 

c 

COEFFICIENTS FOR ENERGY EQUATION . 

K 75 

c 


K 76 

80 

DO 90 I— 1, IE 

K 77 

c 


K 78 

c 

PERFECT GAS 

K 79 

c 


K 80 


CALL -RHOMU (OMEGA,XH(I.).,.CU>,OCDT-H»VK-) 

K 81 


CPI II=DCOTH*THPm 

K 82 


AO 1 1 )=C t I I/PRL 

K 83 


AOB ( I )=1.0/PRL 

K 84 


AOBP( I)=0.0 

K 85 

90 

CONTINUE 

K 86 


GO TO 120 

K 87 

100 

CONTINUE 

K 88 

c 


K 89 

c 

EQUILIBRIUM GAS 

K 90 

c 


K 91 


CALL 0ERIV3 (C, XN, IE, 1,CP ) 

K 92 


DO 110 I =1 f I E 

K 93 


AO(I)=Cm/PREQin 

K 94 


AOB(i»=Aon i/cm 

K 95 

110 

CONTINUE 

K 96 


CALL 0ERIV3 ( AOB, XN, IE, 1, AOBP ) 

K 97 

120 

CONTINUE 

K 98 


IF (X.LT.l.E-7) RETURN 

K 99 


CHIMAX=0.' 

K 100 

c 


K 101 

c 

CALCULATES VORTICITY REYNOLDS NUMBER 

K 102 

c 


K 103 


DO 130 N=1,IE 

K 104 


RHO=ROROE(N)*ROWE 

K 105 


XMU=ROWE*XMUE*C(N l/RHO 

K 106 


CHI (N)=RHO*Y(N)**2*FCN(N)/(EPSVD*PNC*XMU/ROROE(N) )*UE 

K 107 


IF (CHI(N).GT.CHIMAX) CHIMAX=CHI( N) 

K 108 

130 

CONTINUE / 

K 109 


IF ( KTRANS. EQ.O ) RETURN"' 

K 110 


IF (CHIMAX.LT.CHICRT) RETURN 

K 111 

C 


K 112 

c 

INITIATES TRANSITION 

K 113 

c 


K 114 


LAMTRB=2 

K 115 


DX=DX/10. 

K 116 


DXQLD=DXOL D/10, 

K 117 


WRITE (6,360) 

K 118 


WRITE (6,370) 

K- 119 


XZERO=X 

K 120 


XLAMDA=( XBAR-1. )*XZER0/4. 

K 121 

c 


K 122 

c 

WHEN USING THIS TRANSITION MODEL, THE VALUE OF XBAR SHOULD BE 

K 123 

c 

SIXTY-FIVE PERCENT GREATER WHEN THE REICHAROT EDDY VISCOSITY LAW 

K 124 

c 

IS USED THAN THE VALUE OF XBAR USED WITH THE VAN DRIEST EDDY 

K 125 

c 

VISCOSITY LAW, THE USER IS ADVISED THAT THE TRANSITION MODEL IS 

K 126 

c 

TENTATIVE ONLY AND THAT DUE CARE MUST BE EXERCISED IN INTERPRETING 

K 127 

c 

THE RESULTS OBTAINED WITH THIS TRANSITION HODEL. 

K 128 

c 


K 129 

140 

CONTINUE 

K 130 


IF (KTRANS, EQ.O) GO TO 150 

K 131 


X I BAR= ( X—X ZERO) /XL AM DA 

K 132 


GAMMA=1.-EXP(-ATR*XIBAR**2) 

K 133 


IF ( KTRANS, EQ.2) GO TO 150 

K 134 


IF (KVSLAW, EQ.O, AND.XIBAR.LT ,2,0 ) GO TO 150 

K 135 


IF (KVSLAW. NE,0, AND, XI BAR, LT.4,0 ) GO TO 150 

K 136 

c 


K 137 

c 

KTRANS IS SET EQUAL TO 2 AT THE END OF THE TRANSITION REGIME 

K 138 



K 139 


KTRANS=2 

K 140 


WRITE (6,380) 

K 141 


WRITE (6,370) 

K 142 
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150 CONTINUE K 143 

C K 1U 

C TURBULENT K 145 

C K 146 

FAC1=0.0 K 147 

IF (KVSLAW.NE.O) GO TO 170 K 148 

DO 160 1=1, IM K 149 

C K 150 

C INNER EDDY VISCOSITY LAW, REICHARDT EQUATION K 151 

C K 152 

RHO=ROROE(I)*ROWE K 153 

XMU=ROWE*XMUE*C( IJ/RHO K 154 

f AC=CF*RHO/ 1 2,0* EPS VO ) K 155 

F AC1=S QRTI FAC ) K 156 

EPSPLCI J=0»40*Y( I I /XMU*FAC1-4.40*TANH(Y(I)*FAC1/(11.0*XMU) J *GAMMA K 157 

160 CONTINUE K 158 

GO TO 200 K 159 

170 CONTINUE K 160 

FAC4=0.0 K 161 

RHOWL=ROROE (1 )*ROWE K 162 

00 190 1=1, IM K 163 

C K 164 

C INNER EDDY VISCOSITY LAW, VAN DRIEST EQUATION K 165 

C K 166 

RHO=ROROE(I )*ROWE K 167 

XMU=ROWE*XMUE*CIII/RHO K 1 68 

UPLUS=<CF*EPSVD/(2.0*RH0))**0.5 K 169 

YPLUS=Y(I )*RHO/(EPSVD*XMU)*UPLUS K 170 

PPLUS=-EPSVD**2*PP*XMU/CRH0**2*UPLUS**3) ' K 171 

VPLUS=CQ/IRH0WL*UPLUS1 K 172 

IF ( KPGRAD. EQ.O ) APLUS=26.0 K 173 

IF (KPGRADoEQ.l I APLUS=26.0*EXP(-5.9*VPLUS) K 174 

IF ( KPGRAD, EQ.2 ) APLUS=26.0/ I 1 *0-11. 8*PPLUS I **0. 5 K 175 

IF CKPGRAD.EQ.3) APLUS=26* O/I-PPLUS/VPLUS* I EXP 111 «8*V PLUS )-l*0 ) + EX K 176 

1P(11.8*VPLUS) i**0.5 K 177 

ARG=-YPLUS/APLUS K 178 

FAC3=C l.O-EXPCARG) )**2 K 179 

IF (Yd). EQ.O. 01 GO TO 180 K 180 

FAC4=(XK1*Y(I>*RHO*UE)**2*RO**XJFAC/<XMU*XI2**0.50) .K 181 

180 CONTINUE K 182 

£ PSPL < I ) =FAC4*FAC3*F1N ( I )/ EPSVD*GAMMA K 183 

190 CONTINUE X 164 

200 CONTINUE K 185 

DST ARK=0. 0 K 186 

DO 210 1=2, IE K 187 

FAC1=U.0-FC( I) )/ROR0E< I) K 188 

FAC2=<1.0-FC{I-1))/ROROE<I-1) K 189 

DST ARK=0STARK-«-0. 50*DN( I—1)*(FAC 1+FAC2) *PNC*EPSVD K 190 

210 CONTINUE K 191 

C K 192 

C INTERPOLATE FOR DELTA WITH INTERP AND TLU K 193 

C K 194 

CALL INTERP < 0. 9950, FC , Y, IE ,DELTA ) K 195 

CHIMAX=0. K 196 

00 220 1=1, IE K 197 

RHO=ROROE(I)*ROWE K 198 

XMU=ROWE*XMUE*C(I)/RHO K199 

CHI ( I ) =RHO* Y( I ) *#2*FCN (I)/ ( EPS VO* PNC*XMU/RORO E { I } ) *U E K 200 

IF ICHI(I).GT.CHIMAX) CHIMAX=CHI(I) K 201 

GAMF=1. 0/(1. 0+5. 50*(Y(I >/DELTA)**6) K 202 

C K 203 

C OUTER EDDY VISCOSITY LAW K 204 

C K 205 

220 EPSOI I )=XK2*UE*DSTARK*RHO/XMU*GAMF/EPSVD**2*GAMMA K 206 

1 1 = 16 K 207 

DO 230 1=1, IE K 208 

IF (EPSPL(I J.LT.EPSOI I)J GO TO 230 K 209 

II=I K 210 

GO TO 240 K 211 

230 CONTINUE K 212 

240 DO 250 I=II, IE K 213 
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250 

EPSPL ( I )=EPS0 ( I ) 

K 

214 


GO TO (260,310), MOHEGY 

K 

215 

260 

CONTINUE 

K 

216 

C 


K 

217 

c 

COEFFICIENTS FOR MOMMENTUM EQUATION 

K 

218 

c 


K 

219 


IF (NEQIL.NE.O) GO TO 280 

K 

220 


DO 270 1=1, IE 

K 

221 

c 


X 

222 

c 

PERFECT GAS 

K- 

223 

c 


K 

224 


CALL RHQMU (OMEGA, THt I ) »C( I ) ,OCDTH,VK> 

K 

225 


CP( I )=DCDTH*THP ( I ) 

X 

226 


AO(I)=C(l)*(L.O*EPSPL<m 

X 

227 


AOB{ I )=A0( I )/C( I) 

X 

228 

270 

CONTINUE 

K 

229 


GO TO 300 

K 

230 

280 

CONTINUE 

X 

231 

C 


X 

232 

c 

EQUILIBRIUM GAS 

K 

233 

c 


K 

234 


CALL DERIV3 (C,XN, I E, 1, CP) 

X 

235 


DO 290 1=1, IE 

X 

236 


Aom=cm*ci.o+EPSPL(in 

K 

237 


AOB ( I ) =AQ( I ) /C< I ) 

K 

238 

290 

CONTINUE 

K 

239 

300 

CONTINUE 

K 

240 


CALL 0ERIV3 { AOB, XN, I E ,1 , AO BP ) 

K 

241 


RETURN 

- K 

242 

310 

CONTINUE 

K 

243 

C 


K 

244 

C 

COEFFICIENTS FOR ENERGY EQUATION 

K 

245 

C 


K 

246 


IF (NEQIL.NE.O) GO TO 330 

K 

247 


DO 320 1=1, IE 

X 

248 

C 


K 

249 

C 

PERFECT GAS 

X 

250 

C 


K 

251 


CALL RHOMU (OMEGA, TH( I ) , C( I ) ,DCDTH,VK ) 

K 

252 


CP ( I ) =DCDTH*THP ( I ) 

K 

253 


AO (I )=C( I)/PRL*(l.O+EPSPL( I )*PRL/PRTI 

K 

254 


AOB (I )=A0 (I )/C( I) 

K 

255 

320 

CONTINUE 

K 

256 


GO TO 350 

K 

257 

330 

CONTINUE 

K 

258 

C 


X 

259 

C 

EQUILIBRIUM GAS 

K 

260 

c 


X 

261 


CALL DERIV3 ( C, XN , IE, 1 ,CP ) 

K 

262 


DO 340 1=1, IE 

K 

263 


AO(I)=C(I)/PREQU )*(1.0+EPSPL(I)*PREQ(I )/PRT) 

K 

264 


A0B( I }=A0( I )/C( I ) 

K 

265 

340 

CONTINUE 

K 

266 

350 

CONTINUE 

K 

267 


CALL DERIV3 { AOB, XN, IE, 1, AOBP) 

K 

268 


RETURN 

X 

269 

C 


K 

270 

c 


X 

271 

c 


K 

272 

360 

FORMAT (28H1 TRANSITION BEGINS/ 1 

K 

273 

370 

FORMAT (1H1) 

X 

274 

380 

FORMAT (26H1 TRANSITION ENDS/) 

X 

275 


END 

K 

276- 


■SjjSfew 1 

r_ 
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SUBROUTINE EGPROP L 1 

C L 2 

C SUBROUTINE EGPROP CALLS SUBROUTINES BLUNT2, N0ZLE2, ANO WDGFP2. L 3 

C L 4 

C SUBROUTINE EGPROP IS CALLED BY SUBROUTINE DELTAS, L 5 

C L 6 

C SUBROUTINE EGPROP OBTAINS EDGE PROPERTIES FOR SPECIFIED GEOMETRY L 7 

C FOR VALUES OF X AFTER THE INITIAL VALUE OF X, L 8 

C L 9 

COMMON / INTGR/ IE , 1 1MAX, IM» IPRNT, I STOP , I TH ,KL , KPD, KVSLAW, NEQI L ,NEQ L 10 

IL.NIT.NITI, NIT2,NIT3,N0SE L 11 

C L 12 

C L 13 

GO TO (10,20,301, NOSE L 14 

10 CONTINUE L 15 

CALL BLUNT2 L 16 

RETURN L 17 

20 CALL WDGFP2 L 18 

RETURN L 19 

30 CONTINUE L 20 

CALL N0ZLE2 L 21 

RETURN L 22 

END L 23- 


SUB ROUTINE ENERGY M 1 
C M2 
C SUBROUTINE ENERGY CALLS SUBROUTINES DERIV3, EFFHU, PROP, AND M 3 
C SOLVE, M 4 
C M 5 
C SUBROUTINE ENERGY IS CALLED BY MAIN, M 6 
C M 7 
C THIS SUBROUTINE PROVIDES THE SOLUTION FOR THE ENERGY EQUATION, M 8 
C M 9 


COMMON /ARRAY1/ AO U01 1 , A0BU01 ) , AQBPI 10 1 ) , All 10 1) , A2( 101) , A3C101) M 10 

1, A4( 101),C 17101), C1N( 101) ,C(101> , CPI 101 J , CHI ( 101), ONI 102 I, 0N2 (102) M 11 

2, E PSO I101),EPSPL(101),F1(101),F1N(101),F1NN(101),F2(101),F2N(101), M 12 
3F2NNI 101 ) ,FC(101),FCNI101) , FCP{ 101 ) , PREQ (101 ), ROROE (101 ) ,T1( 10U ,T M 13 
41N(101I,T1NN( 101J.T2I 101) , T2NU01) , T2NNI 101) ,TC 1 101) , TCNI 10 1) ,THI1 M 14 
501) ,THPI101),VCI101),XN(102 ), XN2 (102 ) ,Y( 101), YOVDEL (101), YOVTHTC 10 M 15 


61) , YY( 101) M 16 

COMMON /CNVERG/ CONVRG, CCRNI, CRNI ,D IF.DI FF ,DI F1,DIF2, NC M 17 

COMMON /COEFF/ CFBAR, CFBREX ,CFE, CFINF,CFRES , CFREY, CH, CHEDGE, CHOCF, M 18 
1CHREY,DEL,0ELST,DELTA,DSTARK,DSTRAX,HAFCF,HG,HG1 ,HG2,QD0T, RETHET, R M 19 
2EX ,STE, ST INF, THET M 20 

COMMON /COMWLL/ A1 B ,B0 , El »FF, F2N1 ,HW ,TB, THN1 , TH1 ,TW,T2N 1, T21, VW, IA M 21 
IDW.KTW M 22 

COMMON /CFPR/ CF,PR, PRL, PRT M 23 

COMMON /EOGPRP/ ALP , ALP1 , BETA, DUEDS, G,GAMEFF,HALP , HE, HESTAT , PE , PES H 24 
10 »PP, R GAS* ROE SO* ROWE , ROW EP » TE, TESO, UE »UER02,UES0,XH, XMUE, XMUEP ,XMU M 25 
2S0 M 26 

COMMON /GEOME/ ANGLE, DS , DX, DX1 , OXMAX, DXOLO , PNC , R,RO , REFLEN, SCF,THS M 27 
1H0K, X ,XI,XI2,XI0LD, XOLO,XJAY, XJFAC , Z ,ZOL M 28 

COMMON /INTGR/ IE, I IMAX, IM, IPRNT, ISTOP, ITH,KL, KPD, KVSLAW, NEQIL ,NEQ M 29 
IL, NIT, NITl.NIT2.NIT3, NOSE M 30 

COMMON /NTEGER/ 1 1, IPFL, IPR INT , JJ, K, KADETA, KEND.KEP ,KFS ,KSTDP, KSTR M 31 
1T,KTPW,KTRNSN,LAMTRB,NITT0T M 32 

COMMON /VSCSTY/ CSTAR , EPS VO , OMEGA, VK, XXI , XK2, XMUINF M 33 

C M 34 

C M 35 

IF (NEQ1L.NE.0) GO TO 10 M 36 

« / Gf;AC=IUE**2/HE)*(1.0-l,0/PRL) M 37 

GO TO 30 H 38 

10 CONTINUE M 39 

FAC=UE**2/HE M 40 

DO 20 J=1,IE M 41 

ClI J)=1.0-1.0/PREQ(J) M 42 
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20 


30 


C 

c 

c 


40 

50 

60 


C 

C 

c 


70 


80 

90 


C 

C 

C 


100 


C 

C 

c 


110 

c 

c 

c 


120 


130 


CONTINUE 

CALL DERIV3 I Cl f XN, IE» 1.C1N I 

CONTINUE 

M0MEGY=2 

CALL EFFMU ILAMTRB*MOMEGY,KEP, OSTARK I 
ENERGY EQUATION SOLUTION 
00 60 N=2,IH 

A11NI=CP(N)/C(N l+AOBP (N)/AOB(N)— VC( N.J./AOI N) 

A2CN)=0.0 

IF ( NEQIL.NE.O) GO TO 40 

A3(N)=GFAC*(CP<N)/{C<N)*ADB(N 1 1 *FC ( N >*FCN{N J+FCNI N I **2/A0B( NI+FC ( N 
II *F2NN( N) /AOB IN) ) 

GO TO 50 

A3INJ=FAC*C1 CNJ*( (CPINI/CfN J+C1NIN l/CKN )1*FCCN I*FCNINI+FCNIN)**2+ 
1FC { N I *F 2NNI N) I / AOB t N) 

A4(N)=-2.0*XI*FCIN)/A0(N» 

CONTINUE 

CALL SOLVE <T1NN.T1N,T1,T2NN,T2N,T2,E1,TB,CRNI) 

IF (NC.NE.OI GO TO 70 

DERIVATIVE CONVERGENCE TEST AT WALL 

DIFl=ABStl.0-T2Nl/T2N(l) ) 

IF IIAOW.NE.OI 0IFl=ABStl.0-T21/T2(l» I 
CONTINUE 

IF ( X.GT. 0.00010 I GO TO 90 
00 80 N=l, IE 
THNl=T2iN) 

T1N<NI =T2N{ N) 

T1NN(NI=T2NN(NI 
CONTINUE 
DO 110 N=1,IE 
IF (NC.EQ.O) GO TO 100 

ALL POINTS CONVERGENCE TEST 

DIF.F=ABS(1.0-TC(NI/T2IN) I 
IF (DIFF.GT.DIF1 0IF=DIFF 
CONTINUE 

TC(N)=T2 IN)*CRNI+T1 (N)*CCRNI 
TCN(NI=T2N(N)*CRNI+T1NINI*CCRNI 
IF (NEQIL.NE.Ol GO TO 110 

PERFECT GAS 

TH(N)=ALP1*TCIN)-HALP*FCIN)**2 

RQR0EIN)=1«0/TH(N) 

THP ( Nl =ALP1*TCN (N>— ALP*FC INI+FCNI N I ' 

CONTINUE 

IF ( NEQIL . EQ.O I GO TO 120 


M 43 
M 44 
M 45 
H 46 
M 47 
M 48 
M 49 
M 50 
H 51 
'52 ~ 
H 53 
M 54 
H 55 
M 56 
M 57 
H 58 
M 59 
M 60 
H 61 
H 62 
H 63 
M 64 
H 65 
M 66 
M 67 
H 68 
M 69 
H 70 
. M 71 
H 72 
M 73 
H 74 
H 75 
M 76 
M 77 
M 78 
M 79 
M 80 
H 81 
H 82 
M 83 
H 84 
H 85 
H 86 
M 87 
M 88 
H 89 
H 90 
H 91 
M 92 
M 93 
H 94 


H 95 

EQUILIBRIUM GAS M 96 

M 97 

CALL PROP M 98 

CALL DERIV3 < TH »XN* IE » 1 »THPI M 99 

CONTINUE M 100 

Y (11 =0.0 M 101 

YY ( 1 1=0. 0 M 102 

DO 130 N=2, IE M 103 

Y ( N )=Y < N — 1 1 +PNC*( l.O/ROROEI N) +1.0/R0R0EI N— II I *ONI N-l I /2.0 M 104 

YY(N)=Y(NI*EPSVD M 105 

CONTINUE M 106 

RETURN M 107 

END M 108- 
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SUBROUTINE EQLOTA N 1 

C N 2 

C SUBROUTINE EQLOTA CALLS SUBROUTINES EOGE1. INTRP5, AND SLOW. N 3 

C N 4 

C SUBROUTINE EQLDTA IS CALLED BY SUBROUTINE EDGE. N 5 

C N 6 

C SUBROUTINE EQLOTA CALCULATES THE STAGNATION, EXIT, AND REFERENCE N 7 

C CONDITIONS FOR A NOZZLE. THIS SUBROUTINE IS CALLED ONLY FOR N 8 

C EQUILIBRIUM GAS SOLUTIONS WHEN THE PRESSURE DISTRIBUTION IS N ■ 9 

C OBTAINED BY THE PROGRAM FROM AN ISENTROPIC GAS EXPANSION. N 10 

C N 11 

C N .12 

c ' NT1 EXPANSION DATA ***** N 13 

C NT 2 GAS TABLE **** N 14 

C N 15 

COMMON /ARRAY2/ PZ< 501 ) , RZ ( 501 ) , TWZ ( 501 1 ,UEZ( 501 ) ,XSTA ( 501 ) ,ZA ( 501 N 16 

II, I PR 1 101 ), IPRFL (101) N 17 

COMMON /EDGPRP/ ALP, ALP1, BETA, DUEDS,G,GAK£FF,HALP, HE, H6STAT, PE ,PES N 18 

10 » PP,RGAS»ROESO* ROWEfROWEP , TE ,TESO , UE ,UER02,U£SO, XM, XMUE, XMUEP, XMU N 19 

2S0 N 20 

COMMON /FRSTRH/ AMUINF , CX ,HFS , HEX IT, PEX IT, PFS , REINF, RHO FS,TFS,T IN, N 21 

1UFS, XMA, XMUFS N 22 

COMMON /INTGR/ I E,I IMAX, IM, IPRNT, ISTOP, ITH, KL ,KPD, KVSLAW,NEQI L ,NEQ N 23 

IL,NIT,NIT1,NIT2,NIT3,N0SE N 24 

COMMON /REF/ AMUREF, CMSTD, HREF, POPRI H,PREF ,RHOREF ,RHOSTD, TREF,TREF N 25 

11 ,UREF,XMUREF N 26 

COMMON /STAG/ HSTAG,P10,PSTAG,RHOSTG,T10 ,TSTAG N 27 

COMMON /TAPENV/ NT1,NT2,NT3,NT4,NV N 28 

COMMON /VSCSTY/ CSTAR, EPSVD,0HEGA»VK*XK1,XK2* XMUINF N 29 

C N 30 

0 1 MENS ION All ( 5) , XM115J, U1I5J, P1(5I, Hl(5), ZZI9I N 31 

C N 32 

C . N 33 

NERR=0 N 34 

READ INT1I A»XM»U»P»H N 35 

PSTAG32116. 2240*10. 0**P/144.0 N 36 

HSTAG=10.0**H*RGAS»1.8 N 37 

ZZI2l=H N 38 

DO 10 J=1 i 3 N 39 

IF (J.EQ.2) GO TO 10 N 40 

CALL SLOW (P»ZZ,2,J,NT2»NV,N£RRI N 41 

10 CONTINUE N 42 

T ST AG=ZZ (11*1.80 N 43 

RH0STG=10.Q**ZZ{ 3I*RH0STD N 44 

C N 45 

C NOZZLE EXIT CONDITIONS N 46 

C N 47 

A£XIT=<RZCI IMAXI/RZI ITH) 1**2 N 48 

20 READ ( NT1 I A, XH,U»P,H N 49 

IF (XM.LE.1.0) GO TO 20 N 50 

IF (A.LT.AEXITI GO TO 20 N 51 

DO 30 J=1 ,3 N 52 

BACKSPACE NT1 N 53 

30 CONTINUE N 54 

DO 40 J=L ,5 N 55 

READ (NT1) AlltJ),XMl(J),Ul(J»,PlUI,Hl< J) N 56 

40 CONTINUE N 57 

CALL INTRP5 I AE XI T, All , XM1 , 5 ,1 ,1 , XMA ) N 58 

CALL INTRP5 ( AEX IT, All, Ul, 5, 1, I , UFS I N 59 

CALL INTRP5 ( AEXIT, All , PI, 5 ,1 ,1 ,P ) N 60 

CALL INTRP5 ( AEXI T, All , HI, 5,1 ,1 ,H 1 N 61 

ZZ(21=H N 62 

DO 50 J=l,5 N 63 

IF (J.EQ.2) GO TO 50 N 64 

CALL SLOW (P,ZZ, 2, J,NT2,NV,NERR) N 65 

50 CONTINUE N 66 
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PEXIT=P 

N 

67 

HEXIT=H 

N 

68 

PFS=2116.2240*10.0**P/144.0 

N 

69 

HFS=10.0**H*RGAS*1.8 

N 

70 

TFS=ZZ< 1>*1.80 

N 

71 

RHOFS=10.0**ZZ(3)*RHOSTD 

N 

72 

XMUFS=ZZ(4) 

N 

.73 

CX=ZZ(5)*RGAS 

N 

74 


N 

75 

REFERENCE CONDITIONS, 

N 

76 


N 

77 

UREF^UFS 

N 

78 

RH0REF=RH0FS 

N 

79 

PREF=RHOFS*UFS**2 

N 

80 

TREF=UFS**2/CX 

N 

81 

HREF=UFS**2 

N 

82 

XMUREF= (518.60+19 8, 60 )/( TREF+198. 60) *{ TREF/518. 60 >**1.50*3.7190-07 

N 

83 

XMUINF=XHUFS/XMUREF 

N 

84 

T10=TSTAG/TREF 

N 

85 

HE= HS TAG/ HREF 

N 

86 

REWIND NT1 

N 

87 

CALL EDGE1 

-N 

88 

RETURN 

N 

89 


N 

90 


N 

91 


N 

92 

END 

N 

93- 


SUBROUTINE GEOM 0 1 

0 2 

SUBROUTINE GEOM CALLS SUBROUTINES BLUNTI, N0ZLE1, AND WDGFP1. 0 3 

0 4 

SUBROUTINE GEOM IS CALLED BY MAIN AND SUBROUTINE INIT. 0 5 

0 6 

SUBROUTINE GEOM DBTAINS EDGE PROPERTIES FOR SPECIFIED GEOMETRY 0 7 

FOR THE INITIAL VALUE OF X. 08 

0 9 

COMMON /INTGR/ IE »I IMAX , JM, IPRNT , ISTOP, ITH, KL, KPD, K VSL AW, NEQ IL ,NEQ 0 10 

IL, NIT, NIT1, NIT2.NIT3, NOSE . . - 0 11 

0 12 
0 13 

NOSE= 1 BLUNT BODY 0 14 

N0SE=2 FLAT PLATE OR HEDGE O 15 

N0SE=3 NOZZLE 0 16 

0 17 

GO TO (10,20,30), NOSE 0 18 

10 CALL BLUNTI 0 19 

RETURN 0 20 

20 CALL HDGFP1 0 21 

RETURN 0 22 

30 CALL N0ZLE1 0 23 

RETURN 0 24 

END 0 25- 
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SUBROUTINE INIT P 1 

P 2 

SUBROUTINE INIT CALLS SUBROUTINES DELTAS, GEOM, INTERS, AND P 3 

REFSUB. P 4 

P 5 

SUBROUTINE INIT IS CALLED BY MAIN. P 6 

P 7 

THIS SUBROUTINE PROVIDES INITIALIZATION OF DATA-FOR THE PROGRAM. P 8 

P 9 

COMMON / ARRAY2/ PZI501) ,RZ< 501 ) »TWZ < 501 ) ,UEZ( 50 1 ) , XSTAI 501 > ,ZAt 501 P 10 
1),IPR(101J,IPRFL<101) P 11 

COMMON / CNVERG/ CONVRG, CCRN I, CRNI, D IF, DIFF, DIF 1,DI F2,NC P 12 

COMMON /C0EFF3/ CF1 .HGFAC1 ,HGFAC2, OH, SUM P 13 

COMMON /COMWLL/ A1B »B0 , El, FF, F2N1 ,HW»T8 »THN1 » TH1»-TW, T2N1 ».T21 » VW ».I A P 14 
1DW.KTW P 15 

COMMON /CFPR/ CF ,PR,PRL,PRT P 16 

COMMON /EDGPRP/ ALP , ALP t,BETA,DUEDS ,G ,GAMEFF,HALP,HE , HESTAT , PE»PES‘ P 17 

10, PP,RGAS,ROESO,ROWE,ROWEP,TE,TESO, UE,UER02,UES0,XM,XMUE, XMUEP.XMU P 18 

2S0 . P 19 

COMMON /FRSTRM/ AMUIN F,CX, HFS, HEXIT, PEXIT, PF S ,REI NF ,RHOFS ,TFS ,TI N, P 20 
1UFS ,XMA,XMUFS P 21 

COMMON /GEOME/ ANGLE, DS, DX, DXl ,DXMAX,DXOLD , PNC, R,RO ,REFLEN, SCF,THS P 22 
1H0K,X,XI,XI2,XI0LD,X0LD,XJAY,XJFAC,Z,Z0L P 23 

COMMON /INTGR/ IE , I IMAX, I M, I PRNT , ISTOP, ITH,KL, KPO, KVSLAW, NEQIL ,NEQ P 24 
1L, NIT, NIT1,NIT2,NIT3, NOSE P 25 

COMMON /NTEGER/ 1 1, IPFL, IPR INT , J J ,K, KADETA, KEND ,KEP ,KFS, KSTOP, KSTR P 26 
IT , KTPW, KTRNSN, LAMTRB,NITTOT P 27 

COMMON /REF/ AMUR EF.CMSTD, HREF , POPRI M.PREF .RHOREF ,RHO STD, TREE »TREF P 28 

11 , UREF,XHUREF P 29 

COMMON /STAG/ HSTAG,P10,PSTAG,RH0STG,T10,TSTAG P 30 

COMMON /STRT/ KRStRT .NRSTRT P 31 

COMMON /TRANS/ ATR,CHICRT , CHIMAX, GAMMA, XBAR, X IBAR, KTRANS P 32 

COMMON /VSCSTY/ C STAR ,EPSVO .OMEGA , VK ,XK1 ,XK2 ,XMUINF P 33 

P 34 
P 35 

R 3 1. 98674*778. 158*32. 174/CM STD P 36 

RGAS=R P 37 

RHGST0=2116.2240/ ( RGAS*491 .670 1 P 38 

XM=XMA P 39 

XSTA( IIM AX+1 }=— 1.0 P 40 

NEGATIVE XSTA TERMINATES SOLUTION P 41 

KTPW=NRSTRT P 42 

NEQL=NEQIL P 43 

KE P=0 P 44 

NEQIL=0 P 45 

X J AY=XJFAC P 46 

C STAR=1 98. 60 . P 47 


IF (N0SE.EQ.3J CALL GEOM 
IF (KFS.NE.OI CALL REFSUB 
CF=1. 00 
G=GAMEFF 

CX=R*(G/ (G-1.0) ) 

IF (UFS.EQ.O.O) UFS=XMA*IG*TFS*R)**0.50 

IF (KTW.NE.O) B0=TWZ(1>/TSTAG 

VH=0.0 

KSTOP=0 

IPRNT=1 

PR=PRL 

QW=0.0 

HGFAC1=0.0 

HGFAC2=0.0 

IF (KFS.NE.OI HGFAC1=(RH0FS*UFS*CX)/ (778.0*144.0) 
IF (KFS.NE.O) HGF AC 2=RH0FS*UF$* 32. 1740/144. 0 
SUM=0. 0 
Z=0.00 
X=0.00 
XI =0.00 
XI2=2.00*XI 
X IOLD=XI 
XOLD=X 
DXOLD=0.0 
DS=1.00 



P 48 
P 49 
P 50 
P 51 
P 52 
P 53 
P 54 
P 55 
P 56 
P 57 
P 58 
P 59 
P 60 
P 61 
P 62 
P 63 
P 64 
P 65 
P 66 
P 67 
P 68 
P 69 
P 70 
P 71 
P 72 
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CCRNI-1.00-CRNI P 73 

£1=0.00 p 74 

FF=0.00 p 75 

N IT=0 p 76 

NITTOT=0 P 77 

I STQP=0 p 78 

CHIMAX=0.0 P 79 

GAMMA=1« P 80 

IF (LAMTRB.EQ.l) GAMMA=0.0 . P 81 

X IBAR=0« P 82 

I'M=IE-1 P 83 

JJ=1 P 84 

CALL GEOM P 85 

DX1=DX P 86 

IF (NOSE.EQ.i) GO TQ 20 P 87 

IF (LAMTRB.NE.2 J GO TO 20 P 88 

X=. 00010 P 89 

DX= X P 90- 

XOLD=X P 91 

IF (KTW.EQ.OJ GO TO 10 P 92 

JT=3 P 93 

CALL INTER5 (X , XSTAI JT-2 > , XST A( JT-1J , XSTA ( JT ) , XSTAI JT*1 ) , XSTAI JT+2 P 94 

1) ,TWZ< JT-2) ,TWZ(JT-1),TWZ(JT) ,TWZ< JT+1 ) ,THZI JT+2 ) ,TW> P 95 

BO=TW/TSTAG P 96 

10 CONTINUE P 97 

CALL DELTAS P 98 

UER02=UE*R0**<2.0*XJFAC> P 99 

XMUEP=XMUE P 100 

ROHEP=RQWE P 101 

20 CONTINUE P 102 

RE TURN P 103 

END P 104- 


SUBROUTINE MACH (X,R,RT,ZTH) Q 1 

Q 2 

SUBROUTINE MACH CALLS SUBROUTINE INTERS. Q 3 

Q 4 

SUBROUTINE MACH IS CALLEC BY SUBROUTINES BLUNT1, BLUNT2, N0ZL61, Q 5 
AND N0ZLE2. Q 6 

Q 7 

SUBROUTINE MACH GENERATES A TABLE OF MACH NUMBERS AS A FUNCTION Q 8 

OF AREA RATIOS FOR A SPECIFIED VALUE OF THE RATIO OF SPECIFIC Q 9 

HEATS. THE SUBROUTINE ALSO INTERPOLATES IN THIS TABLE FOR THE Q 10 

MACH NUMBER WHICH CORRESPONDS TO THE LOCAL RADIUS AND AREA RATIO. Q II 

Q 12 

IF A PRESSURE DISTRIBUTION IS INPUT, THE TABLE OF MACH NUMBERS 0 13 

IS GENERATED FROM THE INPUT VALUES OF PRESSURE. Q 14 

Q 15 

COMMON / ARRAY2/ P Z ( 50 1 ) , RZ< 501) , TWZ< 501 ) , UEZ I 501 ) , XSTA ( 501 ) ,ZAI 501 Q 16 
lifIPRIlODt IPRFLI101 ) q 17 

COHMON /EDGPRP/ ALP , ALP1, BETA, DUEDS, G.GAHEFF ,HALP,HE,HESTAT , PE , PES Q 18 
10 ,PP,RGAS,ROESO,ROWE,ROWEP,TE,TESO,UE,UER02,UESO,XM,XMUE,XMUEP,XMU Q 19 
2S0 Q 20 

COMMON /I NT GR/ IE, I IMAX, IH, IPRNT, ISTOP, ITH ,KL,KPD,K VSLAW, NEQIL,N£Q Q 21 
1L, NIT, NIT1,NIT2,NIT3, NOSE Q 22 

COMMON /NTEGER/ 1 1 , IPFL, IPR INT , JJ,K,KADETA,KEND,KEP,KFS,KSTOP,KSTR Q 23 
IT ,KTPW,KTRNSN,LAMTRB,NITTOT Q 24 

-^COMMON /STAG/ HSTAG,P10 , PSTAG,RH0STG,T10 ,TST AG 0 25 

0 26 

DIMENSION AR1 (765 ) , XMM765) 0 27 

Q 28 
Q 29 

IF ( KPD.NE.O I GO TO 70 Q 30 

IF (JKL.EQ.235J GO TO 40 Q 31 

C Q 32 
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C MACH NUMBER FROM AREA RATIO Q 33 

C Q 34 

N=1 Q 35 

XM1( 11*0.0 Q 36 

DXMl=0»010 Q 37 

A*G+1.0 Q 38 

B=*G-1.0 0 39 

C=A/(2.0*B) Q 40 

N=2 Q 41 

10 XM1(N)=XM1(N-1)*DXM1 Q 42 

FAC={2.0+B*XH1(N)**2)/A Q 43 

FAC1 3 FAC**C 0 44 

AR1(N)=FAC1/XM1(N) Q 45 

AR1IN)=1.0/AR1(N) Q 46 

IF <XM1(N).GE.2.0> DXM1=0.050 Q 47 

N=N+1 Q 48 

IF ( N.NE. 100) GO TO 30 Q 49 

DO ,20 J=l,10 0 50 

XMUNI-1.0 0 51 

ARK N) = 1.0 Q 52 

N=N-frl 0 53 

20 CONTINUE Q 54 

30 CONTINUE Q 55 

IF (N.GT.765) JKL*235 Q 56 

IF (N.GT. 765) GO TO 40 0 57 

GO TO 10 Q 58 

40 AR=(R/RT)**2 0 59 ' 

AR=1.0/AR Q 60 

C 0 61 

C THE IF STATEMENT BELOW SPECIFIES THAT THE AREA RATIO CORRESPONDS 0 62 

C TO A SUBSONIC OR A SUPERSONIC MACH NUMBER Q 63 

C Q 64 

IF (X.EQ.ZTH) XM=1.0 Q 65 

IF (X.EQ.ZTH) GO TO 60 Q 66 

IF (X.L E. ZTH) J=l 0 67 

IF (X.GT.ZTH) J=lll Q 68 

50 J = J + l Q 69 

IF (X.LE.ZTH.AND.AR.GT.ARl(J)l GO TO 50 Q 70 

IF (X.GT.ZTH. AND. AR.LT.ARl(JI) GO TO 50 Q 71 

IF (J.LT.31 J=3 Q 72 

IF (J.GT.763) J=763 Q 73 

IF ( X.LT.ZTH.AND. J.GT.98) J=98 0 74 

CALL INTER5 I AR ,AR1 ( J-2 ) , ARK J-l ) * AR1 ( J ) , ARK J+l ), ARK J+2 ) . XM1 ( J-2 <3 75 

1).XM1< J-D.XMK J) ,XM1(J+1) ,XM1(J+2),XM) 0 76 

60 CONTINUE Q 77 

RETURN Q 78 

70 CONTINUE Q 79 

C Q 80 

C ' MACH NUMBER FROM P/PSTAG Q 81 

C Q 82 

IF (JKL.EQ.235) GO TO 90 Q 83 

FAC=1 .0 Q 84 

IF (KSTRT.NE.l) FAC=1.0/P10 Q 85 

DO 80 J=l,IIMAX Q 86 

XH1 ( J>=(2.0/(G-1.0)*( (PZ(J )*FAC)**(-(G-1.0)/G)-1.0) )**0.5 0 87 

80 CONTINUE Q 88 

JKL=235 0 89 

90 CONTINUE 0 90 

J*0 Q 91 

100 J=J+l Q 92 

IF (ZA( Jl.LT.X) GO TO 100 0 93 

IF (J.LT.3) J=3 Q 94 

IF ( J.GT. ( UMAX— 2 ) I J=IIMAX-2 Q 95 

CALL INTER5 { X, ZA ( J-2 > , ZA( J-l ) , ZA( J 1 » ZA( J+l ) , ZA(J+2 >, XH 1< J-2 > , XM1 ( Q 96 

1J-1),XM1< J)«XMKJ*L) f XMK J+2),XM) Q 97 

RETURN Q 98 

END 0 99- 
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c 

c 

c 

c 

c 

c 

c 


c 

c 


c 

c 

c 


10 


c 

c 

c 


20 


30 

40 


C 

C 

C 


50 

60 


70 


SUBROUTINE HGMENT 

SUBROUTINE MOMENT CALLS SUBROUTINES EFFMU AND SOLVE. 

SUBROUTINE MOMENT IS CALLED BY MAIN. 

THIS SUBROUTINE PROVIOES THE SOLUTION FOR THE MOMENTUM EQUATION. 

COMMON / ARRAY1/ A0(10l),A0B( 1011 ,AOBP( 101) .AK101) .A2(1Q1) ,A3(101) 
1 r A4 ( 101 ) , C1(101),C1N(101),C (101 1 »„CP (.101),CHI (-101 )* DN(-102),DN2(102) 
'2, E P SO f l'0~l ) » EPSPLI 101) » FI (101) » FIN 1 101 ),F1NN(101),F2(101),F2N(101), 
3F2NN(101),FC(101), FCN( 1011* FCP ( 101),PREQI 101) ,ROROE ( 101) ,T1( 101) ,T 
41 N ( 101 ) , TlNN(lOl) ,T2 (101), T2N 1101 ),T2NN( 101), TC (101), TCN( 101), TH( 1 
50 1) , THP ( 101) , VC( 1011 ,XN(102),XN2U02),Y(101) ,Y0VDEL(101 ), YOVTHT110 
61 ) ,YY (101) 

COMMON /CNVERG/ CONVRG,CCRNI,CRNI , DIF,DIFF, DIF1, DIF2, NC 

COMMON /COEFF/ CFBAR , CFBREX ,CFE ,CFI NF ,CFRES,CFREY,CH»CHEDGE ,CHOCF, 
ICHREY, DEL, OELST , DELTA, DSTARK, D$TRAX,HAFCF»HG, HG1,HG2,QD0T,RETHET,R 
2EX,STE,STINF,THET 

COMMON /COMHLL/ A1B.B0, El, FF, F2N1 ,HW,TB ,THN1, TH1 ,TW, T2NI ,T21 ,VW , I A 
1 D W, KTH 

COMMON /EOGPRP/ ALP, ALP1, BETA,DUEDS,G,GAMEFF,HALP, HE,HEST AT,PE, PES 
10,PP,RGAS,ROESO,ROHE,ROWEP,TE,TESO,UE,UER02,UESO, XM,XMUE,XMUEP,XMU 
2S0 

COMMON /GEOHE/ ANGLE, DS , OX, DXi , DXMAX,DXOLD , PNC, R,RO , REFLEN,SCF,T HS 
1HOK,X,XI,XI2,XIOLD,XOLD,XJAY,XJFAC,Z,ZOL 

COMMON /INTGR/ IE , II MAX , I M, I PRNT, ISTOP, ITH,KL , KPD, KVSL AM, NEQIL.NEQ 
1L , N IT, N IT1, NIT2 ,NI T3,N0SE 

COMMON /NTEGER/ II, IPFL, I PRINT , JJ,K, KADETA,K£ND,KEP , KFS,KSTOP , KSTR 
1T,KTPH,KTRNSN,LAMTRB,NITT0T 


M0MEGY=1 

CALL EFFMU (LAMTRB,MOMEGY,KEP, DSTARK) . 

MOMENTUM EQUATION SOLUTION 
DO 10 N=2,IH 

A1(N)=CP(N)/C(N)+A0BP(N)/A0B(N)-VC<N)/A0(N) 
A2(N)=-BETA*FC(N)/AQ(N) 
A3(N)=BETA/(AO£N)*ROROE(N) ) 
A4(N)=-2.0*XI*FC(N)/A0(N) 

CONTINUE 

CALL SOLVE (FINN »F1N, FI ,F2NN,F2N, F2,E1 ,FF ,CRNI ) 
IF (NC.NE.O) GO TO 20 

DERIVATIVE CONVERGENCE TEST AT WALL 

0IF=ABS(F2Nll)— F2N1) 

DIF2=D IF/F2N( 1 ) 

DIF=AMAX1(DIF1,DIF2) 

CONTINUE 

IF (X.GT.0.00010) GO TO 40 
DO 30 N=1,IE 
FI ( N )=F2 ( N ) 

F1N(N)=F2N(N) 

FINN! N)=F 2NN( N) 

CONTINUE 

IF (NC.EQ.O) GO TO 60 
DO 50 N=2, I E 

ALL POINTS CONVERGENCE TEST 

DIFF=A8S(1.0-FC(N)/F2(N)) 

IF (DIFF.GT.DIF) DIF^DIFF 

CONTINUE 

CONTINUE 

DO 70 N=1,IE 

FCP(N)=(F2CN)~F1(N> )/DS 

FCN(N)=F2N(N)*CRNI+F1N(N)*CCRNI 

FC(N)=F2IN)*CRNI+F1CN)*CCRNI 

RETURN 

END 
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SUBROUTINE NOZLEl 

SUBROUTINE NOZLEl CALLS SUBROUTINES DENS IT, EDGE, FD5, INTRP5, 
MACH, SLOW, VISCO, AND ZRO. 

SUBROUTINE NOZLEl IS CALLED BY SUBROUTINE GEGH. 

SUBROUTINE NOZLEl CALCULATES THE EDGE AND REFERENCE PROPERTIES 
FOR A NOZZLE AT THE INITIAL VALUE OF X. 

COHHON / ARRAY2/ PZI50 1 1 ,RZ( 501 1 » TWZ ( 501 ) » UEZl 501) , XSTA< 5011 ,ZA(501 
1> ,IPR{101),IPRFL<10ll 

COMMON /EDGPRP/ ALP , ALP 1, BETA, OUEDS, G,GAMEFF ,HALP ,HE,HESTAT,PE , PES 

10, PP,RGAS,ROES0» ROWE, ROW EP, TE, T ESO, UE, UER02, UES0»XM , XMUE, XMUEP, XMU 
2S0 

COMMON /FRSTRM/ AMU INF, CX, HFS, HEXIT, PEXIT, PFS»R£INF , RH0F$,TFS ,TI V, 
1UFS,XMA, XMUFS 

COMMON /GEOME/ ANGLE, DS,DX, 0X1 ,0XMAX,DX0LD , PNC, R,R0 , REFLEN,SCF, THS 
1 HOK, X, X I , XI2, XIOL D, XOL D, XJ A Y, XJFAC , Z , ZOL 
COMMON /INTGR/ IE ,1 1 MAX , I M, I PRNT , ISTOP, ITH,KL, KPD, K VSLAW, NEQIL ,N£Q 
1L,NIT,NITI,NIT2,NIT3,N0SE 

COMMON /REF/ AMUREF.CMSTO, HREF, POPR IM,PREF, RHOREF,RHO STD, TREF,TREF 

11 , UREF, XMUREF 

COMMON /STAG/ HSTAG.P 10, PSTAG, RHOSTG ,T10,TSTAG 

COMMON /SUTH/ CPRIM 

COMMON /TAPENV/ NT1,NT2 ,NT3,NT4,NV 

COMMON /VSCSTY/ CSTAR, EPS VD, OMEGA, VK,XK1 ,XK2, XMUINF 

DIMENSION ZZt 9) , XMJ ( 5) , UJ{5) , PJ<5>, HESTJ15 ) 


FIRST CALL OF GEOM AND NOZLEl SPECIFIES THE NOZZLE GEOMETRY AND - 
COMPUTES THE TABLE OF EDGE PROPERTIES FOR EITHER A SPECIFIEO- 
PRESSURE DISTRIBUTION ALONG THE NOZZLE AXIS OR AN IDEAL EXPANSION 

IF (NEQIL.EQ.l) GO TO 40 

PERFECT GAS 

IF ( I JK.ECo 231) GO TO 20 

CALL MACH ( ZA (I IMAX), RZ ( I IMAX I , RZ( ITH) ,ZA( ITH M 
XMA=XM 

XMACHS=XMA**2 

TFS=TSTAG/(1„0+(G-1.0)/2.0*XMACH$) 

CPRIME=CSTAR/((G-1.00>*XMACHS*TFS) 

CPRIH=CPRIME 

T10=0. 50+1.00/ l XMA*XMA*( G-1.00 ) ) 

-P 10= ( 1. 0+ (G-l .0 » /2.0*XMA**2 ) ** { G/ (G-1.0 ) 1/ (G*XM A**2 ) 

DO 10 J=i » I IMAX 

CALL MACH ( ZA ( J i , RZ< J ) , RZUTH) , ZA( ITH1 ) 
PEl=P10/((1.0+<G-1.0l/2.0*XM**2)**(G/(G-l.0) J) 

PZ< J)=PE1 

TEl=T10/(1.0+(G-1.0)/2.0*XM**2> 

UEZl J> = SORT <2.0*1 T10-TE1) I 

CONTINUE 

I JK=231 

RETURN 

CONTINUE 

CALL ZRO ( I IMAX, X »Z,RO I 
CALL MACH { Z,RO,RZ( ITH) ,ZAC ITH1 ) - 
PE=Pl0/(ll.0+(G-l.O)/2.0*XM**2)**(G/(G-1.0)) > 
TE=T10/(1.0+<G-1.0)/2.0*XM**2) 

CALL DENSIT (ROWE,PE,TE) 

CALL VISCO (OMEGA, TE,XMUE1 
UE=SQRT( 2.0*( T10-TE) ) 

WRITE (6,1301 T10.P10 
WRITE (6,140) U E, TE, PE 
XMUSO=XMUE 
XMUEP=XMUE 
ROWEP=ROWE 
PESO=PE 
TESO=TE 
PNC=0. 0 
BETA=0.0 




S 1 
S 2 
S 3 
S 4 
S 5 
S 6 
S 7 
S 8 
S 9 
S 10 
S 11 
S 12 
S 13 
S 14 
S 15 
S 16 
S 17 
S 18 
S 19 
S 20 
S 21 
S 22 
S 23 
S 24 
S 25 
S 26 
S 2T 
S 28 
S 29 
S 30 
S 31 
S 32 
S 33 
S 34 
S 35 
S 36 
S 37 
S 38 
S 39 
S 40 
S 41 
S 42 
S 43 
S 44 
S 45 
S 46 
S 47 
S 48 
S 49 
S 50 
S 51 
S 52 
S 53 
S 54 
S 55 
S 56 
S 57 
S 58 
S 59 
S 60 
S 61 
S 62 
S 63 
S 64 
S 65 
S 66 
S 67 
S 68 
S 69 
S 70 
S 71 
S 72 
S 73 
S 74 


1 7C 



O O o 


UER02=UE*R0**(2.0*XJFAC) 

J=0 

30 J=J*1 

IF (UE.GT.UEZ(J)) GO TO 30 

IF (J.LT.3I J=3 

IF ( J.6T. 41 1 MAX —2 I I J= I IHAX—2 

CALL FD5 (X»XSTA(J— Z)» XSTA( U-l ),XSTA(J) ,XSTA(J*1),XSTA(J+2),UEZ(J- 
121 ,UEZ(J-1) ,UEZI J I ,UEZ( J+l }*UEZ( J+2 I , DUEOS ) 

PP=-ROWE*UE*DUEDS 
ALP=UE**2/TE 
’ HE=TI'0 
RETURN 

40 CONTINUE 

EQUILIBRIUM GAS 

IF (KPD.NE.OI GO TO 60 
50 CONTINUE 

CALL ZRO (IIMAXtX.Z.ROI 
CALL EDGE 

P 10=P STAG /P REF* 144.0 

T10=TSTAG/TREF 

HE=HST AG/HREF 

PNC=0.0 

8ETA=0.0 

XHUSO=XHUE 

XMUEP=XMUE 

RQWEP=ROWE 

PESO=PE 

TES0=T6 

UER02=UE*R0**(2.0*XJFACJ 
ALP=UE**2/HEST AT 
WRITE (6,130) T10.P10 
WRITE (6,140) UE, TE,PE 
RETURN 

60 CONTINUE 

DO 70 0=1,1 IMAX 
PZ( J)=PZ(J)*G*XMA**2*PFS 
70 CONTINUE 

PATHS=PZ< I IMAX ) *144.0/2 116« 2240 
PL=AL0Gi0 (PATHS) 

J = 0 

80 J=J+1 

READ (NTH DUM,XMI»UI,PI,HI 
IF (PI.GT.PL) GO TO 80 
DO 90 J=1 ,3 
BACKSPACE NT1 
90 CONTINUE 

DO 100 J=l, 5 

. READ ( NT1 ) DUMfXMJ(J) , U J ( J) ,PJ(J),HESTJ(J) 

100 CONTINUE 

CALL INTRP5 (PL , P J , XM J, 5, 1, l, XMA ) 

CALL INTRP5 ( PL ,P J,UJ ,5 ,1 ,1 ,UFS ) 

CALL INTRP5 (PL,P J.HESTJ, 5, 1,1,HFSL) 

ZZ(2)=HFSL 

DO 110 J=*l,6 

IF (J.EQ.2) GO TO 110 

CALL SLOW (PL,ZZ,2, J,NT2,NV,NERR) 

110 CONTINUE 

PFS = PZ( UMAX) 

HFS=10.0**ZZ(2)*RGAS*1.8 
TFS=ZZ ( 1 ) *1 • 80 
RHOF5=10.0**ZZ(3)*RHOSTD 
XMUFS=ZZ( 4) 

CX=ZZ ( 5 )*RGAS 

PREF=RH0FS*UFS**2 

REINF=RHOFS*UFS/XMUFS/SCF 

TREF=UFS**2/CX 

RHOREF=RHOFS 

UREF=UF S 

HREF=UFS**2 

REWIND NT1 

XMUR£F=(518.60+198. 60) /( TREF+198. 601*1 TREF/518.60)**1. 50*3. 719E-D7 
C 
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C XMIIREF EVALUATED USING SUTHERLAND VISCOSITY LAN* XHUREF HAY BE CHOS S 149 

C ARBITRARILY S 150 

c S 151 

XMU INF= XMUFS/XMUREF S 152 

READ (NTH DUM,DUM1 ,DUH2 , PL,HORL S 153 

PSTAG=l0.O**PL*2116.224O/144.O S 154 

HSTAG=10.0**HGRL*RGAS*1.8Q S 155 

ZZ12HH0RL S 156 

DO 120 J = l» 3 S 157 

IF (J.EQ.2) GO TO 120 S 158 

CALL SLOW (PL,ZZ,2»J,NT2,NV,NERR) - S 159 

120 CONTINUE S 160 

TSTAG=ZZ(1>*1.80 S 161 

RH0STG=10.0**ZZI3)*RH0STD S 162 

REWIND NT1 S 163 

GO TO 50 S 164 

C S 165 

C S 166 

C S 167 

130 FORMAT { 1H » 2X, 4HT10= ,E15. 7,2X,4HP10=, E15. 7/ ) S 168 

140 FORMAT (9H UESO= ,E15.7,8H TESO= ,E15.7,9H P£SO= ,E15.7> S 169 

END S 170- 


SUBROUTI NE N0ZLE2 T 1 

C T 2 

C SUBROUTINE N0ZLE2 CALLS SUBROUTINES DENSIT, EDGE, FD5, HACH, T 3 

C VI SCO, AND ZRO. T 4 

C T 5 

C SUBROUTINE N0ZLE2 IS CALLED BY SUBROUTINE EGPROP. T 6 

C T 7 

C SUBROUTINE N0ZLE2 CALCULATES THE EDGE PROPERTIES FOR A NOZZLE AT T 8 

C THE VALUES OF X AFTER THE INITIAL VALUE OF X. T9 

C T in 

COMMON /ARRAY2/ PZI 501 ) ,RZ ( 501 J , TWZ ( 501 J ,UEZ( 50U , XSTA t 501 ) , ZAI501 T 11 

1), I PR (101), I PRFL (101) T 12 

COMMON /EDGPRP/ ALP ,ALP1, BETA,DUEDS , G,G AMEFF, HALP, HE, HEST AT, PE, PES T 13 

10, PP,RGAS,RDESO,ROWE,ROWEP,TE,TESO,UE,UER02,UESO,XM,XMUE,XHUEP,XMU T 14 

2S0 T 15 

COMMON /GEOME/ ANGLE, DS, DX, DX1 ,DXMAX,DX0L0 , PNC, R, RO , REFLEN,SCF,THS T 16 

1H0K,X,XI,XI2,XI0LD, XQLD,XJAY,XJFAC , Z, ZQL T 17 

’ COMMON /INTGR/ IE, 1 1 MAX, I M, IPRNT, ISTOP, ITH, KL , KPD, KVSL AW, NEQIL ,NEQ T 18 

„1L, NIT, NIT1,NIT2,NIT3, NOSE T 19 

COMMON /STAG/ HST AG, P10, PSTAG, RHOSTG, T10»TSTAG T 20 

COMMON /VSCSTY/ CSTAR,EPSVD,OHEGA, VK, XK1 ,XK2 ,XMUINF T 21 

C T 22 

C T 23 

IF (NEQIL. EQ. 1) GO TO 20 T 24 

C T 25 

C PERFECT GAS T 26 

C T 27 

CALL ZRO ( I IMAX, X, Z , RO ) T 28 

CALL MACH ( Z, RO ,R Z ( IT H) , ZA( ITH ) ) T 29 

PE=P10/(( 1.0+(G-1.0)/2.0*XM**2)**(G/tG-1.0>) ) T 30 

TE=T10/U.0 + (G-I.0)/2.0*XM**2) T 31 

CALL VISCO (GMEGA,TE,XMUE) T 32 

CALL DENS IT (ROWE,PE,TE) T 33 

UE=5QRT (2.0* (T10-TE) ) T 34 

J=0 T 35 

10 J=J*1 T 36 

IF (UE.GT.UEZI J) ) GO TO 10 T 37 

IF (J.LT.3) J=3 T 38 

IF ( J.GT. ( I IMAX— 2 ) ) I IHAX-2 T 39 

CALL FD5 (X,XSTA(J— 2) ,XSTA( J— 1 ) , XST A ( J ) , XSTA ( J+l ) »XSTA( U+2 ),UEZ(J— T 40 

12),UEZ(J-1),UEZ(J),UEZ(J+1),UEZ(J+2),DUEDS) T 41 

PP=— ROWE*UE*DUEDS T 42 

RETURN T 43 

20, CONTINUE T 44 

C T 45 
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c EQUILIBRIUM GAS T 46 

C T 47 

CALL 2R0 ( UMAX* X*2, RO) T 48 

CALL EDGE T 49 

RETURN T 50 

END T 51- 


SUBROUTINE PRFILE U 1 

C U 2 

C SUBROUTINE PRFILE IS CALLED BY MAIN. U 3 

C U 4 

C SUBROUTINE PRFILE GENERATES THE INITIAL VELOCITY AND ENTHALPY U 5 

C PROFILES. U 6 

C U 7 

COMMON / ARRAY 1/ AO C 10 1 ) , AOB( 101 J , AOBP C 101) , A1 ( 101) * A2( 101 1 , A3C 101 1 U 8 

If A4(101) ,C1(101)»C1N(101) fCdOll f CP(lOl) fCHIIlOl )t ON(102)t 0N2< 102) U 9 
2f EPSO < 101 ) j EPSPL ( 101) t F 1( 10 1) t F 1N( 1011 »F1NNI 101) t F2 ( 101 ) f F2N( 101 ) » U 10 
3F2 NN (101 ).FC 1101) ,FCN(101), FCP ( 101 ) , PREQ < 101 ) tROROE ( 101 ) ,T1( 101) ,T U 11 
41N(101),TlNN(101),T2(101),T2Na01),T2NN(101),TC(101),TCN(101),TH(l U 12 
501),THP(101) f VC(101>,XN(102)fXN2(102),Y( 101) ,YOVDEL( 101) ,YOVTHT{10 U 13 
61) »YY (101 ) U 14 

COMMON /COMHLL/ A1B ,B0, El ,FF,F2N1 ,HW,TB ,THN1 ,TH1 ,TW,T2N1 ,T21 ,VW, I A U 15 
1DW,KTW U 16 

COMMON /GEOME/ ANGLE, DS ,DX , DX1 , DXMAX, DXOLD,PNC, R, RO, REEL EN, SCF, THS U 17 
1H0K, X,XI,XI2fXI0L0, XOLD ,XJ A Y, XJFAC ,2 ,20L U 18 

COHMON /INTGR/ IE, I IMAX, IM, IPRNT, ISTOP, ITH.KL, KPD, K VSLAH, NEQI L ,NEQ U 19 
1L, NIT, NIT1,NIT2,NIT3, NOSE U 20 

COMMON /NMLCRD/ ADTEST, ETA INF, XKETA U 21 

C U 22 

C U 23 

IF (XKETA. EQ.1.0) DETA1=ETAINF /FLOAT ( IE— 1) U 24 

IF (XKETA.NE.l.O) DETA1=ETAINF*(XKETA-1.0 )/(XKETA**IM-1.0) U 25 

DN(1)=DETA1 U 26 

XNC 1 1=0*00 U 27 

Y(1)=0.0 U 28 

XN( IE)=ETAINF U 29 

DO 10 N=l, I E U 30 

DN(N+1)=XKETA*DN(N> U 31 

XN(N+1)=XN(N)+DN(N> U 32 

Y ( N) =PNC*XN (N ) U 33 

F 1( N) = 1.0— E XP ( — XN{ N ) > U 34 

F1N(N)=EXP(— XN(N) ) U 35 

IF (FIN(N).LE. l.D— 2 5) F1N(N)=0.0 U 36 

F1NN( N)=— F1N(N ) . U 37 

F2NN(N)=F1NN(N) U 38 

FC( N )=F 1 ( N) u 39 

FCN(N)=FIN(N) U 40 

FCP( N)=0.0 U 41 

T1(N)=B0+I 1.0-B0)*F1(N) U 42 

TIN ( N)=.( 1. 0— BO ) *F1N (N ) U 43 

TlNN(N)=t 1.0-B0)*F1NN(N) U 44 

TC(N)=T1(N) u 45 

TCNI N)~ TIN( N) u 46 

VC( N )=VH— XN (N ) U 47 

C(N)=1.0 U 48 

CP(N)=0.0 U 49 

EPSPL(N)=0.0 U 50 

F2(N)=F1(N) U 51 

YOVDEL (N 1=0.0 U 52 

YOVTHT ( N)=0 .0 U 53 

CHI ( N) =0.0 U 54 

10 CONTINUE U 55 

F1(IE)=1.0 U 56 

Tl( IE )= 1.0 U 57 

F2{ IE)=1.0 U 58 

T2(IE)=1«0 U 59 

FC(IE)=1.0 U 60 

TC( IE )=1.0 U 61 
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F1NIIE)=0.0 U 62 

FINN! IE)=0.0 U 63 

T1NIIE)=0.0 U 64 

T1NNC IE )=0.0 U 65 

RETURN U 66 

END U 67- 


SUBROUTINE PROP V 1 

V 2 

SUBROUTINE PROP CALLS SUBROUTINE SLOW. V 3 

V 4 

SUBROUTINE PROP IS CALLED BY MAIN AND SUBROUTINE ENERGY. V 5 

V 6 

SUBROUTINE PROP CALCULATES THE THERMODYNAHIC AND TRANSPORT V 7 

PROPERTIES FOR EQUILIBRIUM GAS SOLUTIONS. V B 

V 9 

COMMON /ARRAYI/ AOI 101 ) » AOBUOl ) , AOBP 1 101) , A1 (101) . A2 UOl ) , A3 1 101 ) V 10 
1> A4(101 ) ,C1 (101),C1N(101),C(101),CP( IODjCHII 10 1) , DN ( 102) , DN2( 102) V 11 
2. EPSOI lODfEPSPLIlOl) »F1 ( 101) .F1NI101 } , FI NNII01 ) ,F2 ( ID 1 ) , F2N< 10 1 ), V 12 
3F2NNI 101 ) » FC 1 101 ) . FCNI 10 1 ) * FCPI 10l),PREQ( 101) .ROROEdOl) ,T1(101) ,T V 13 
41 N( 1011 , T1NNC 101 ),TZ <101 ) »T2N (101 ) , T2NNI 101 }, TC 1101 ),TCNI 101). THU V 14 
50l),THP(101),VC(101).XN(102),XN2C102) , Y 1 101) , YOVDELI 101 ) , YOVTHTI 10 V 15 
6D.YYI101J V - 16 

COMMON /CFPR/ CF.PR.PRL.PRT V 17 

COMMON /EDGPRP/ ALP . ALP1.BETA .OUEOS . G.GAHEFF. HALP. HE. HESTAT.PE . PES V 18 

10, PP,RGAS,ROESO.ROWEf RDWEP,TE,TES0,UE,UERO2,UES0,XH,XMUE,XMUEP,XMU V 19 

2S0 . . V 20 

COMMON /INTGR/ IE, I IMAX , IM, IPRNT, I STOP. ITH ,KL ,KPD. KVSLAW, NEQIL ,NEQ V 21 
1L,NIT,NIT1,NIT2,NJT3,N0SE V 22 

COMMON /REF / AMUREF,CMSTD,HREF, POPRIM, PREF,RHOREF,RHOSTO,TREF,TREF V 23 

11 , UREF. XMUR EF V 24 

COMMON /TAPENV/ NT1 , NT2 , NT3 ,NT4, NV V 25 

V 26 

DIMENSION ZZ( 9 ) , XMUI201) V 27 

V 28 

V 29 

P=PE*PREF/2U6„2240 V 30 

PL=AL0G10I P) V 31 

DO 10 J=1,IE V 32 

HSTGL=TC{ J)*HE*HREF V 33 

ULOC=FC< J )*UE*UREF V 34 

HSTAT=HSTGL-ULOC**2/2.0 V 35 

H0R=HSTAT/IRGA$*1.8> V 36 

IF IH0R.LT.35.0) HOR= I TCI I E)*HE*HREF- IFCI I E)*UE*UREF >**2/2.0 ) / ( RGA V 37 
1S*1.80) V 38 

HL=ALOG10(HOR) V 39 

ZZI 2 )=HL V 40 

CALL SLOW ( PL , ZZ . 2 , 1 . NT2 , NV , NERR ) V 41 

CALL SLOW IPL,ZZ,2,3,NT2,NV,NERR) V 42 

CALL SLOW (PL»ZZ»2»4fNT 2, NV, NERR ) V 43 

CALL SLOW (PL,ZZ,2,6,NT2,NV,NERR) V 44 

ROROE ( J )= 10.0**ZZ ( 3 ) V 45 

XMUIJ)=ZZI4) V 46 

PREQl J)=ZZ16> V 47 

THC J )=ZZ< 1) V 48 

10 CONTINUE V 49 

THIE=TH( IE ) V 50 

RHO I E=ROROE I IE ) V 51 

XMUIE=XMU(IE) V 52 

DO 20 J=1 » IE V 53 

TH( J )=THI J )/THIE V 54 

ROROE I J )=ROROE( J )/RHOIE V 55 

XMUI J)=XMUt JI/XMUIE V 56 

Cl J) = ROROEU)*XMU(J ) V 57 

20 CONTINUE V 58 

PR=PREQI1) V 59 

RETURN V 60 

END V 61- 
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SUBROUTINE READIN (KREAON) M 1 

M 2 

SUBROUTINE READIN CALLS SUBROUTINES WRITE1 AND WRITE2. W 3 

W 4 

SUBROUTINE READIN IS CALLED BY MAIN AND SUBROUTINE WRITE2. W 5 

W 6 

SUBROUTINE READIN PROVIDES THE INPUT OF DATA FOR THE PROGRAM, W 7 

EITHER FROM CARDS OR FROM THE RESTART TAPE. ALSO, THE RESTART W 8 

TAPE IS WRITTEN BY THIS SUBROUTINE. ’ ' W 9 

W 10 

WHEN THE INPUT DATA IS FROM THE RESTART TAPE, SUBROUTINES WRITE1 W II 

AND WRITE2 ARE CALLED TO HRITE THE DATA FROM THE LAST STATION W 12 

I K = KRSTRT ). W 13 


W 14 

COMMON /ARRAYl/ AO(lOl) , AOBCIOl J , AOBPI101I , A1 (101 ) , A2UOI >, A3( 101 ) W 15 

1, A4 (1011,01(10 I), C1N( 101) ,C(101I ,CP( 101 1 ,CHI ( 101) ,DN(102) ,0N2<102) W 16 

2, EPSO(i01 1 , EPSPL (101 1 , FI (101 1, FIN (101 1, FINN ( 101), F2( 1011 , F2N( 101) , W 17 
3F2NN( 101) ,FC( 101) ,FCN(101) ,FCP(101) , PREQdOl ) ,ROROE (101 ),T1(101),T W 18 
41N( 101 ) ,T1NN( 101 )»T2(101)»T2N( 101),T2NN( 101), TC (101) ,TCN(101) ,TH(1 W 19 
501) ,THP<101) ,VC{101),XN(102)»XN2U02),Y(101),YOVDELU01 >,YOVTHT(10 W 20 


61 ) , YY( 101 ) W 21 

COMMON / ARRAY2/ P.Z( 50 1 ) ,RZ ( 501 ) , TWZ{ 501 1 » UEZ ( 501 ) , XSTA( 501 > ,ZA( 501 W 22 
U ,IPR(101),IPRFL(10I) W 23 

COMMON /CNVERG/ CONVRG, CORN I , CRNI ,DIF,DIFF,DIFI,DIF2,NC W 24 

COMMON /COEFF/ CFBAR, CFBREX , CFE, CFINF, CFRES, CFREY,CH,CHEOGE,CHOCF , W 25 
1CHREY, DEL, DELST, DELTA, DSTARK,DSTRAX,HAFCF,HG,HG1 ,HG2, QDOT, RETHET.R W 26 
2EX, STE, STINF,THET W 27 

COMMON /C0EFF2/ DELORF, OELDX, OS AXOR, OST DDL, OSTORF, DSTOTH, OSTOX.ROR W 28 
1EFL, THQDEL»THOREF , XOREFL,ZOR£FL - ' W 29 

COMMON /C0EFF3/ CF1, HGFAC1, HGFAC2.QW, SUM W 30 

COMMON /COMWLL/ A1B ,B0 • El ,FF,F2N1 »HW,TB,THN1»TH1,TW,T2N1,T21, VW, I A W 31 
1DW,KTW W 32 

COMMON /CFPR/ CF, PR, PRL.PRT W 33 

COMMON /EDGPRP/ ALP , ALP1 , BETA,OUEDS, G,GAMEFF,HALP , HE,HESTAT, PE, PES W 34 
10 »PP,RGAS»ROESO»ROWE»ROWEP, TE,TES0,UE,UER02,U£S0» XM,XMUE»XMUEP,XMU W 35 
2S0 .... W 36 

COMMON /FRSTRM/ AMU INF, CX, HFS, HEXIT, PEXI T, PFS ,REI NF , RHOFS ,TFS ,TI N, W 37 
1UFS *XMA , XMUFS W 38 

COMMON /GEOME/ ANGLE, 0S,0X,DX1 , DXHAX, DXCLD ,PNC, R, RO , REFLEN, SCF,THS W 39 
1HOK,X,XI,XI2,XIOLD,XOLD,XJAY,XJFAC,Z,ZOL W 40 

COMMON /INJECT/ CQZC501 I , CQ ,CQ1 , FINJ ,KCQ, KINJ ,KNOINJ .KPGRAD W 41 

COMMON /INTGR/ IE, I IMAX , IH, IPRNT, I STOP, I TH ,KL , KPD, KVSL AW, NEQIL , NEQ W 42 
1L,NIT*NIT1, NIT2,NIT3,N0SE W 43 

COMMON /NTEGER/ I I , I PFL ,IPRINT, J J, K, KAOET A, KEND,KEP, KFS, KSTOP, KSTR W 44 
IT ,KTPW, KTRNSN»LAMTRB»NITTOT W 45 

COHMON /NMLCRD/ ADT6ST, ETAINF,XKETA W 46 

COMMON /REF/ AMUREF ,CMSTD,HREF, PDPRIM,PREF,RHOREF,RHOST 0,TREF*TREF W 47 
11,UREF,XMUREF W 48 

COMMON /STAG/ HSTAG, P10,PSTAG,RHOSTG,T10,TSTAG W 49 

COMMON /STRT/ KRSTRT, NRSTRT W 50 

COMMON /SUTH/ CPR IH W 51 

COMMON /TAPENV/ / NT1,NT2,NT3,NT4,NV W 52 

COMMON /TRANS/ ATR, CHICRT,CHIMAX, GAMMA, XBAR, XIBAR, KTRANS W 53 

COMMON / VSCSTY/ CSTAR, EPSVOrOMEGA, VK, XK1, XK2, XMUINF W 54 

W 55 

DIMENSION LABEL (18) W 56 

W 57 

DATA LST/4HLAST/ H 58 

W 59 
W 60 

IF (KREADN.EQ.3) GO TO 60 W 61 

IF ( KREADN.EQ. 2) GO TO 50 W 62 

C W 63 

WRITE (6, '70) W 64 

C W 65 

READ (5,80) KRSTRT, NRSTRT W 66 

IF ( NRSTRT. EQ.O I NRSTRT=2 W 67 

READ (5,90) NT1,NT2,NT3,NT4 W 68 

KSTRT=KRSTRT+l W 69 

IF (KSTRT.EQ.l) GO TO 20 W 70 

WRITE (6,100) KRSTRT W 71 

C W 72 
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c 

c 


10 


20 

C 

C 

C 

C 

c 


30 


40 


READ RESTART TAPE 
READ (NTS) LABEL 

READ (NT3) CQZ, PZ, RZ, TWZ ,UEZ, XSTA ,Z A, IPR , I PRFL 
WRITE (6,120) LABEL 
READ ( NT3) K.KTPW 
READ (NT3 ) 

READ (NT3) 

IF (K.NE. (KRSTRT-(KTPW-K) ) ) GO TO 10 
READ ( NT3 ) K.KTPW 

READ < NT.3 ) AO , AOB, A08P, C.CP.CHI , DN , EPSPL, F2 , F2N.F2NN, FC ,FCN,FCP, PR 
16Q,R0R0E,T2«T2N»T2NN»TC,TCN»TH,THP»VC»XN,Y,Y0VDEL» YOVTHT, YY 
READ (NT3) CONVRG.CCRNI .CRN I »DIP, DIFF,DIF1,DIF2»NC, CFBAR, CFBREX,CF 
IE, CFINF.CFRES. C FREY. CH.CHEDGE.CHOCF.CHREY. DEL, DELST .DELTA. DST ARK, D 
2STRAX. HAFCF.HG, HG1.HG2, ODOT .RETHET, REX , STE, STINF .THET.DELORF.DELOX 
3,DSAXOR»DSTODL,DSTORF.DSTOTH»DSTOX, ROREFL.THODEL.THOREF.XOREFL.ZOR, 
4EFL.CFI, HGFAC1.HGFAC2.QW.SUM. A1B .BO.El.FF .F2N1.HW.TB.THNI , TH1 »TW»T 
52Nl,T21,VW,tADW,KTW.CF, PR, PRL, PRT.ALP, ALP1, BETA .DUEDS.G.GAMEFF, HAL 
6P .HE.HESTAT.PE. PE SO,PP,RGA$,ROESOiROWE,ROWEP,TE,TESO .UE.UER02.UESO 

7. XM.XMUE, XMUEP. XMUSO, AHUINF.CX.HFS.HEXIT.PEXIT.PFS.REINF, RHOFS ,TFS 

8, TIN,UFS,XMA,XMUFS,ANGLE,DS,DX, DX1 , DXHAX, DXOLD, PNC , R, RO.REFLEN, SCF 
9»THSH0K»X,XI,XI2»XI OLD , XOLD ,XJAY, XJFAC , Z , ZOL , CQ, CQ1 , FIN J, KCQ, K INJ, 
$KNOINJ. KPGRAD, IE, UMAX, IM, 1PRNT , I STOP, I TH.KL, KPD »K VSLAW.NEQI L.NEQL 
$»NIT»NIT1,N£T2,NIT3, NOSE , II.IPFL.IPRINT.JJ.K, KADETA.K END.KEP.KFS, K 
$STOP,KDUH,KTPW»KTRNSN,LAMTRB»NITTOT .ADTEST .ETAINF.XKETA.AHUREF.CHS 
*T D, HREF , PO PRIM, PREF, RHOREF, RHOSTD, TR EF, TREF1, UREF , XMUREF.H STAG , P 10 
$, PSTAG.RHQSTG ,T10 ,TSTAG»CPRIH,NT1 .NT2.NT3. NT4 ,NY, ATR.CHICRT .CHIHAX 
$, GAMMA, XBAR,XIBAR,KTRANS,CSTAR, EPSVD, OMEGA, VK, XKl , XK2 .XMUINF 

KRI TE1=1 

CALL WRITE1 (KRITEX) 

CALL WRITE2 

RETURN 

CONTINUE 


READ (5,110) LABEL 
TITLE CARD 


WRITE (6,120) LABEL 

READ (5,90) NOSE.LAHTRB.KTRANS.KTRNSN 


READ 

READ 

READ 

READ 

READ 

READ 

REAO 

READ 

READ 

READ 

REAO 

READ 

READ 

READ 

READ 

READ 


(5,90) lADW.KTW.KPD.KFS 
(5,90) NIT1,NIT2,NIT3,NC 

(5.80) IE.KEND ,1 1 MAX ,ITH 

(5.90) KADETA.KL , I PFL, IPRI NT 

(5.90) KVSLAH, KPGRAD, NV.NEQIL 

(5.80) KCQ ,KI NJ» KNOI NJ 
(5,130) CHICRT »XBAR,ATR,CQ,FINJ 
(5,130) TFS,UFS,XMA,REINF 
(5,130) BO, PRL, PRT, OMEGA 
(5,130) XKl, XK2.C0NVRG, ADTEST 
(5,130) DX , CRN I , XK ET A, ETAINF,R£FLEN 
(5,130) XJFAC, ANGLE, THSHOK.G 

(5,130) TSTAG,TREF1,PSTAG,PFS, AMUREF.SCF 
(5,130) PO PR I M.CMSTD , G AMEF F, OX MAX 
(5,140) (IPR(J),J=1,IPRINT) 

(5,140) ( IPRFL(J), J=1,IPFL) 


J=0 


J=J+1 

READ (5,150) ZA(J),XSTA(J),RZ(J),PZ(J),TWZ(J), CQZ (J),LSTC 
IF (LSTC.EQ.LST ) GO TO 40 
GO TO 30 
I IMAX=J 

IPR( IPR INT+1 )=I IMAX+1 
IF (NIT1.EQ.0) NIT1=3 
IF (NIT1.LT.0) NIT1=0 
IF (NIT2.EQ.0I N I T2=6 
IF (NIT3.EQ.0) N I T3 =9 
IF (Kl.EQ.O) KL=2 
IF (ADTEST. EQ.0.0 ) ADTEST=0.0010 
IF ( CONVRG. EQ.0.0 ) CONVRG-O.OOIO 
IF (PRL. EQ.0.0) PRL=0. 70 
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IF (ETAINF.EQ.O.O) ETAINF=100.0 W 145 

IF (XKETA.EQ.O.O) XKETA*1.09 W 146 

IF <IADW<NE<OJ B0=1.0 W 147 

IF <LAHTRB<EQ<0 ) LAMTRB=1 W 148 

IF <NOSE<EQ<0 ) N0SE=1 W 149 

IF <XK1<EQ<0<0I XK1=0,40 H 150 

IF <XK2<EQ<0<0I XK2=0< 01680 W 151 

IF <KINJ<GT<IJHAXI KINJ=IIHAX W 152 

IF <KNOINJ<GT<IIHAXJ KN0INJ=IIHAX W 153 

IF IKTRNSN.GT.IIHAX) KTRNSN-J IMAX. H 154 

"IF <KTRNSN<EQ<OJ KTRNSN^I IMAX W 155 

C W 156 

C W 157 

RETURN W 158 

SO CONTINUE W 159 

C W 160 

C WRITE INITIAL DATA ON RESTART TAPE W 161 

C W 162 

WRITE (NT3) LABEL W 163 

WRITE ( NT3J C Oil PZ,RZ,TWZ»U£Z»XST A»ZA» IPR, IPRFL W 164 

RETURN W 165 

60 CONTINUE W 166 

KTPW=KTPW+NRSTRT W 167 

C W 168 

C WRITE STATION DATA ON RESTART TAPE W 169 

C W 170 

WRITE < NT3 1 K,KTPW W 171 

WRITE < NT3 ) AO, AO B, AO BP,C, CP.CHI, DN, EPSPL, F2, F2N, F2NN ,FC,FCN,FCP, P W 172 

lREQ,ROROE,T2,T2N,T2NN,TC,TCN,TH,THP,VC,XN,Y,YOVDEL,YOVTHT,yy W 173 

WRITE < NT3) C0NVRG,CCRNI,CRNI»DIF,DIFF,DIF1,DIF2,NC,CFBAR,CFBREX,C W 174 

lFE,CFINF,CFRESiCFREY,CH,CHEOGE,CHOCF,CHREYi DEL. DELST, DELTA, DSTARK, W 175 

2DSTRAX.HAFCF.HGtHGl.HG2 .QDOT.RETHET ,REX .STEiSTINF.THET , DELORF,D6LO W 176 

3X» DSAXOR, OSTOOL . DSTORF, DSTOTH, DSTOX.ROREFL.THODEL, THOREF, XOREFL ,Z0 W 177 

4REFL.CF1 .HGFAC1 .HGFAC2 .QW.SUH. A1B.B0 ,£1,FF,F2N1.HH,TB,THN1,TH1. TW, W 178 

5T2N1. T21 . VW» IADW.KTW.CF , PR ,PRL, PRT , ALP, A L PI . BETA.DUEOS, G.GAHEFF.HA W 179 

6LP.HE, HESTAT ,PE .PESO, PP.RGAS.ROESO, ROWE, ROWER, TE, TES0.UE.UERO2 .UES W 180 

70 , XH, XMUE.XMUEP.XHUSO , AHUI NF.CX »HFS, HEX IT , PEX IT.. PFS. REINF.RHOFS »TF W 181 

8S, TIN, UFS.XMA.XHUFS, ANGLE, DS.0X.0X1 .DXHAX, DXOLD , PNC, R, RO.REFLEN.SC W 182 

9F,THSH0K,X,XI,XI2,XI0LD,X0L0,XJAY,XJFAC,2,Z0L,CQ,CQ1,FINJ,KCQ,KINJ W 183 

$,KNOINJ,KPGRAD,IE,I I MAX, IH, IPRNT, ISTDP, ITH.KL, KPD, KVS LAW, NEQIL, NEQ W 184 

4L, NIT, NIT 1,NIT2,NIT3, NOSE, II, IPFL , I PRINT ,JJ ,K,KADETA,KEND,KEP,KFS, W 185 

tKSTOP.KSTRT ,KTPW, KTRNSN ,LAMTRB, NITTOT ,ADTEST , ET AI NF, XK ETA, AMUR EF» C W 186 

$MSTD,HREF,P0PRIM,PREF,RH0REF,RH0STD,TREF,TREF1,UREF,XMUREF,HSTAG,P W 187 

$10,PSTAG,RH0STG,T10,TSTAG,CPRIM,NT1,NT2,NT3,NT4,NV,ATR,CHICRT,CHIM W 188 

$ AX, GAMMA , XBAR,XIBAR, KTRANS ,CSTAR, EPSVD,CHEGA,VK,XK1, XK2.XMU INF W 189 

WRITE (6,160) K,KTPW W 190 

RETURN W 191 

C W 192 

C W 193 

C W 194 

70 FORMAT <24X,83HPR0GRAM LTBLCEQL {LAMINAR AND/OR TURBULENT BOUNDARY W 195 
1 LAYERS IN CHEMICAL EQU ILI BRI UMI /60X, 13HA PROGRAM F0R/22X, 89H2-D A W 196 

2ND AXISYMMETRIC NONREACTING PERFECT GAS AND EQUILIBRIUM CHEMICALLY W 197 

3 REACTING LAMINAR, /42X .49HTRANS IT IONAL AND/OR TURBULENT BOUNDARY-L W 198 

4AYER FLOW/66X ,2HBY/44X» 46HE< C. ANDERSON, E. W. MINER AND C. H. W 199 

5 LEWIS/53X ,27HAER0S PACE ENGINEERING DEPT./41X, 5 1HVIRGIN IA POLYTECH W 200 

6NIC INSTITUTE AND STATE UNI VERSITY/56X.21HBLACKSBURG, VA. 24061/56 W 201 

7X, 22HPHONE - <703 )-552-6126/29X,76HPR0GRAM DEVELOPED UNDER CONTRAC W 202 

8T NASI— 9337 WITH NASA LANGLEY RESEARCH CENTER) W 203 

80 FORMAT <4<7X,I3)J W 204 

90 FORMAT <4<8X,I2>) w 205 

100 FORMAT < 1HO,2X,28HPROGRAH RESTARTED. KRSTRT =,I4) W 206 

110 FORMAT < 18A4) W 207 

120 FORMAT <1H0 ,38X, 18A4//// J W 208 

130 FORMAT (6F12. 6) W 209 

140 FORMAT (1415) W 210 

150 FORMAT <6E12.6,A4) . W 211 

160 FORMAT < 1H0, 26HRE START TAPE WRITTEN. K =,I4,2X,6HKTPW =, 14//// ) W 212 

END . W 213- 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


10 


20 


SUBROUTINE REFSUB 

SUBROUTINE REFSUB IS CALLED BY SUBROUTINE INIT. 

CALCULATES TSTAG FROM TFS AND XMA 

OR TFS FROM TSTAG AND XMA , 

UFS FROM TFS AND XMA 

PSTAG FROM PFS AND XMA 
OR PFS FROM PSTAG AND XMA . 

RHOFS FROM PFS AND TFS 

TREF1 AND AHUREF ARE USED TO CALCULATE REINF IF THE 
INPUT VALUE OF REINF. IS 0.0 

COMMON /EDGPRP/ ALP »ALP1 » BETA, DUEDS , 6, GAMEFF, HALP, HEi HESTAT,PE»PES 
10 » PP» R GAS »ROESO » ROWE* RQWEP ,TE ,TESQ* UE »U£R02,UE$0» XM, XMUE, XMUEP, XMU 
2S0 

COMMON /FRSTRH/ AMUINF,CX,HFS,HEX IT, PEX IT, PFS , REINF, RHOFS, TFS ,T IN, 
1UFS, XMA, XMUFS 

COMMON /GEQME/ ANGL E, OS , DX , 0X1, DXMAX, DXOLO,PNC,R, RO.REFLEN, SCF ,THS 
1H0K, X,XI,XI2,XI0LD,X0LD,XJAY,XJFAC,Z,Z0L 
COMMON /REF/ AHUREF, CMSTD, HREF,POPRIM,PREF ,RHOREF,RHOSTD,TREF,TREF 
11,UREF*XMUREF 

COMMON /STAG/ HSTAG ,P10, PSTAG, RHQSTG ,T10 , TSTAG ■ 


IF ( TSTAG. EQ.O.Oo AND. TFS.NE.O.OJ TSTAG=*TFS*(1.0+(G-1.D ) /2.0*XMA**2 
1J 

IF { TFS.NE.O.OJ GO TO 10 

IF (TSTAG. NE. 0.0) TFS=TSTAG/U. 0+1 G-1.0 ) /2.0*XMA**2 ) 

IF (XMA.NE.O.O) UFS=XHA*(G*TFS *R)**0.50 

IF (PFS. NE. 0.0) PSTAG=PFS*(1.0*<G-1.0)/2.0*XMA**2I**(G/<G-1.0)1 
IF (PFS.NE.O.O) GO TO 20 

IF ( PFS. EGo 0. 0. AND. PSTAG. NE. 0.0 ) PFS=PSTAG/U1.0*<G-1.0 )/2.0*XMA** 
12 ) **(G/ ( G— 1 .0 ) ) ) 

IF (PFS.NE.O.O) RH0FS=PFS*144.0/(R*TFS) 

IF (TREF1.NE. 0.0. AND. AHUREF. NE.O.O) AMUINF=(TREF1+198.60)/(TFS+198 
1. 60 ) * ( TFS/TREF1 ) **1.50* AMU REF 
IF (TREF1.EQ.O.O) AHUINF=0.0 

IF (REINF.EQ.O.O) RE INF=RHOFS*UFS/AMUINF/SCF 

RETURN 

END 
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SUBROUTINE RHOMU (OMEGA, TH,C,DCDTH,VK) 

C 

C SUBROUTINE RHOMU IS CALLED BY SUBROUTINE EFFMU. 

C 

C SUBROUTINE RHOMU CALCULATES ( RHO*MU) /IRH0E*MUE) CORRESPONDING TO 

C T/TE. 

C IF (OMEGA .EQ. 0) USES SUTHERLAND LAW 

C IF (OMEGA .NE. 0) USES POWER LAW 

C 

IF I TH.LE.O. ) TH-l.E-6 
IF (OMEGA. NE, 0. ) GO TO 10 
C 

C SUTHERLAND LAW 

C 

C=TH**0.5*(1.+VK)/CTH*VK) 

DCDTH=C*(VK-TH)/12.*TH*(TH+VK) } 

RETURN 

C 

C POWER LAW 

C 

10 C=TH**( OMEGA-1. ) 

DCDTH=( OMEGA-1. )*TH**(0HEGA-Z. ) 

RETURN 

END 
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SUBROUTINE SLOW ( XX ,Z ,11 , Jl , IT , NV»NERR) Z 1 

C Z 2 

C SUBROUTINE SLOW CALLS. SUBROUTINE INTERS. Z 3 

C Z 4 

C SUBROUTINE SLOW IS CALLED BY SUBROUTINES BLUNT1, EDGE, EQLOTA, Z 5 

C NOZLE1, PROP, WALL, AND WDGFP1. Z 6 

C - Z 7 

C EACH CALL TO THE SUBROUTINE SLOW. RETURNS A THERMODYNAMIC OR Z 8 

C TRANSPORT PROPERTY VALUE. THE VALUE IS OBTAINED BY INTERPOLATION Z 9 

C FROM THE DATA READ FROM THE GAS . PROPERTY TAPE. - SUBROUT INE' SLOW' Z 10 ’ 
-E "IS'USED ONLY FOR EQUILIBRIUM GAS SOLUTIONS. - Z 11 

C Z 12 

C Z 13 

DIMENSION X (5 ), Y(5,6,100), Z(9>, Y2(6,100> Z 14 

C Z 15 

C Z 16 

NERR=0 Z 17 

IF ( I JK.NE.301 J XXI =10. 0**20 Z 18 

IF (IJK.NE.301) GO TO 10 Z 19 

IF (XX. GT .X (2 ) > GO TO 10 Z 20 

IF tXX.GE.XI4H GO TO 50 Z 21 

BACKSPACE IT Z 22 

BACKSPACE IT Z 23 

GO TO 20 Z 24 

10 REWIND IT Z 25 

I JK=301 Z 26 

20 READ (IT) XI, JJ Z 27 

READ (IT) Z 28 

IF (Xl.GT.XX) GO TO 20 Z 29 

DO 30 K=l,6 Z 30 

BACKSPACE IT 2 31 

30 CONTINUE Z 32 

DO 40 K=l» 5 Z 33 

READ (IT) X (K) , JJ Z 34 

READ (IT) ((Y(K,l,L)iL~l,100),I=l,NV> Z 35 

40 CONTINUE . Z 36 

50 CONTINUE Z 37 

IF ( XX.EQ.XX1) GO TO 80 Z 38 

DO 70 1=1, NV Z 39 

DO 60 L=1,JJ Z 40 

CALL INTER5 ( XX, X( 1) , X( 2) , X( 3) , X( 4>.,X(5 ) ,Y(1 , I ,L) »Y (2 , I ,L ) ,Y (3 , 1 , L Z 41 
1 } , Y (4, I , L ), Y( 5, I,L ) , Y2( I,L ) ) - Z 42 

60 CONTINUE Z 43 

70 CONTINUE Z 44 

80 CONTINUE Z 45 

HM=0 Z 46 

90 MM=MH+1 Z 47 

IF (ZU1),LT.Y2(I1,MMU GO TO 90 Z. 48 

IF I Y2( 1,MM ).LT. 600.0) GO TO 100 Z 49 

IF (MM.LT.3) MM=3 Z 50 

IF (MM.GT.( JJ-2H MM=JJ-2 Z 51 

CALL INTERS ( Z( II ) , Y2( I l,HH-2) , Y2( I 1,MH-1) ,Y2( I 1 ,HM) , Y2 ( II ,MMH ) ,Y Z 52 
12(1 1 »MM+2 ) » Y2 ( Jl , MM— 2 ) , Y2 ( J1,MM— 1 ) , Y2( J1,MM )» Y2I JljMH+l ) ,Y2(J1,MM+ Z 53 
22 ) ,Z( Jl) ) Z 54 

XXl=XX Z 55 

RETURN Z 56 

100 CONTINUE Z 57 

Z ( Jl )=Y2( Jl »MMJ — ( Y2( J1,HM)— Y2I Jl, HH-1) )/(Y2(Il,HM) — Y2( 1 1,MM— 1) ) *( Y Z 58 
12(11, MM)-Z(Il)) Z 59 

XX1=XX Z 60 

RETURN Z 61 

END Z 62- 
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SUBROUTINE SOLVE (WINN, WIN, W1,W2NN,H2N, W2, El, Fll.CRNI) AA 1 
C AA 2 
C SUBROUTINE SOLVE CALLS SUBROUTINE DERIV3. . AA 3 
C AA 4 
C SUBROUTINE SOLVE IS CALLED BY SUBROUTINES ENERGY AND MOMENT. AA 5 
C AA 6 
C SUBROUTINE SOLVE CALCULATES THE SOLUTION FOR A GENERAL PARABOLIC AA 7 
C PARTIAL DIFFERENTIAL EQUATION WHEN THE P.D.E. IS REPRESENTED BY A AA 8 
C SYSTEM OF IMPLICIT. THREE POINT FINITE DIFFERENCE EQUATIONS. AA 9 
C AA 10 


COMMON /ARRAY1/ AO< 101) ,AOB{ 101 1 ,A0BP(101) ,A1(101) ,A2{ 101 ) , A3 (101 ) AA 11 

1, A4(l01),Cl(i01),ClN(101),C(101),CP< 101) ,CHII 101) ,DN(10Z) ,DN2U0ZI AA 12 

2 , EPS0(10l ) , EPSPLdQl ),F1(101),F1N(101)» FiNNdOl), F2< 101), F2NC 1011* AA 13 
3F2NNC101 ) , FC dOl ) »FCN MOD » FCP( 101) , PREQt 101 ) ,ROROE ( 101 J ,.T1 <101 ) ,T AA 14 
41NI101 ) . TlNN(lOl) , 12(101), T2Nd01), T2NN (101) , TCI101) » TCN< 101) »TH(1 AA 15 
501 ) . THP( 101 ) » VC(101 ) t XN( 102 ) t XN2(102 ) > Y (101) « YOVDEL (101 ), YOVTHT( 10 AA 16 


61 ) , YY( 101 ) AA 17 

COMMON /GEOME/ ANGLE, DS, OX, 0X1, DXMAX, OXOLD,PNC,R,RO,REFLEN, SCF.THS AA 18 

1H3K, X, XI , XI 2, XI OLD , XOLD , XJAY,X JFAC , Z » ZOL AA 19 

COMMON /INTGR/ IE, I IMAX, IM, IPRNT, ISTOP, ITH ,KL ,KPD,KVSLAW,NEQI L,NEQ AA 20 

1L,NIT,NIT1,NIT2,NIT3,N0SE AA 21 

C AA 22 

DIMENSION EI201), FI201) AA 23 

C AA 24 

DIMENSION W2NNI1), W2NI II , W2I1), WlNN(l), W1NI1)-, Will) AA 25 

C AA 26 

C AA 27 

E(1) = E1 AA 28 

FC1)=F11 . AA 29 

DO 10 N=2 » I M AA 30 

A=(2.00-Al(N)*DN{N>)/(DN(N-l)*(DN(N)+DN{N-l)) >*CRNI AA 31 

B=({-2.0*A1{N)*(DN(N)-ON(N-1)))/(DN(N>*DN(N-1)HA2(N))*CRNI+A4(N>/ AA 32 

IDS AA 33 

CC=(2.00+AHN)*DN<N-1))/!DN{N)*(DN(N)+DN(N~1I))*CRNI AA 34 

D=-(W1NNINH-A1IN)*W1NCN)*A2IN)*W1LN))*C1.00-CRNI)-A3IN)*A4(N)*WHN AA 35 

1)/DS AA 36 

E(N)=-CC/(B+A*£(N-ll) AA 37 

10 F ( N ) = ( D— A*F IN— 1 I ) / ( A*E( N— 1 ) ) AA 38 

H2{ IE )=1.00 AA 39 

KON=IM AA 40 

DO 20 N=2,IE AA 41 

W2 I KON )=E( KON )*W2 (KON+1 ) +F( KON) AA 42 

20 KON=KON-1 AA 43 

CALL DERIV3 I W2,XN, I E ,1 , W2N) AA 44 

CALL 0ERIV3 (W2N, XN, IE, 1, W2NN ) AA 45 

RETURN . . AA 46 

END AA 47- 


SUBROUTINE VISCO (OMEGA,T,XHU) AB 1 

C AB 2 

C SUBROUTINE VISCO IS CALLED BY MAIN AND SUBROUTINES BLUNT!, BLUNT2, AB 3 

C N0ZLE1, N0ZLE2, AND WDGFP1. AB 4 

C AB 5 

C SUBROUTINE VISCO CALCULATES MU/MUREF CORRESPONDING TO T/TREF. AB 6 

C AB 7 

C IF (OMEGA .EQ. 01 USES SUTHERLAND LAW AB 8 

C IF (OMEGA .NE. 0) USES POWER LAW AB 9 

C AB 10 

COMMON /SUTH/ CPRIM AB 11 

C AB 12 


IF (OMEGA.NEoO. ) GO TO 10 
C 

C SUTHERLAND LAW 

C 

XMUM1.*CPRIM)/(T+CPRIM)*(T**1.5) 

RETURN 

C 

C POWER LAW 

C 

10 XMU=T**OMEGA 
RETURN 
END 
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c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

10 


20 
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c 

c 
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C 
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SUBROUTINE WALL 

SUBROUTINE WALL CALLS SUBROUTINES INTERS AND SLOW. 

SUBROUTINE WALL IS CALLED BY 'MAIN. 

THIS SUBROUTINE CALCULATES THE WALL BOUNDARY CONDITIONS. 

COMMON /ARRAY1/ AO (101) . AOB(lOi) , AOBPdOl ) ,A1 (101 ) , A2 ( 101 ) , A3 ( 101 ) 

1 , A4 (J.0 II , Cl ( lOLUClN (.10 1), C ( 101.1, CP-(-lOi) ,CHI (-101) , DN (102) ,DN2 ( 102 ) 

2, E PS0(101 ) ,EPSPL (101 ) » FI (101 )»F1N(101 ), F1NN(101),P2( 101 )» F2N( 101), 
3F2NN( 101) » FC(101 ) ,FCN( 101 ) »FCP< 101 ) ,PREQ{ 101 ) , ROROE (101) ,Tl (101) ,T 
41N<101 ) * T1NN( 101 ) »T2( 10 1 )»>T2N( 101 ), T 2NN( 101) » TC( 101) ,TCN( 101) ,TH(1 
501) ,THP(101) ,VC(10i),XN(102),XN2(102),Y,(101),YOVDEL(101 ),Y0VTHT(10 
61 ) , YY( 101 ) 

COMMON / ARRAY2/ PZ ( 501 ) » RZ ( 50 1 ) » TWZ ( 501 > , UEZ( 501) , XSTA ( 501 ) ,ZA ( 501 
1),IPR( lOl).IPRFL(lOi) 

COMMON /CNVERG/ CONVRG, CCRN I.CRNI , DIF, DIFP, Dipl, DIF2.NC 
COMMON /COMWLL/ A1B.B0, El, FF, F2N1, HW,TB,THNi,THl,TW, T2N l,T21,VW,I A 
IOWjKTW 

COMMON /EDGPRP/ ALP, ALP 1, BETA, DUEDS,G,GAMEFF, HALP, HE,HESTAT,PE ,PES 
10 » PP, RG AS, ROESO »ROWE»ROWEP* TE.TESO »U£»UERQ2»U ESO* XM» XMUE, XMUEP.XMU 
2S0 

COMMON /GEOME/ ANGL E, DS, DX, 0X1, DXMAX.DXOLD ,PNC , R,RO, REFLEN, SCF ,THS 
1H0K , X, XI , XI 2 » XI OLD, XOLD »X JAY »X JFAC, Z,‘ZOL 
COMMON /INJECT/ CQZ ( 501 ) ,CQ ,CQ1 ,F I NJ , KCQ.KI NJ ,KNOI NJ .KPGRAO 
COMMON /INTGR/ IE,IIMAX,IM, IPRNT , ISTQP, I TH,KL , KPD, K VSLAW, NEQI L ,NEQ 
1L,NIT,NIT1,NI T2 ,NIT3 , NOSE 

COMMON /REF/ AHUREF,CMSTD,HREF,PORRIH,PREF,RHOREF,RHOSTD,TREF,TREF 
11 ,UREF,XMUREF 

COMHON /STAG/ HSTAG »P10 • PSTAG, RHOSTG ,T10 ,TSTAG 
COMMON /TAP ENV/ NT1,NT2,NT3,NT4,NV 

COMMON /VSCSTY/ CST AR, EPS VD, OMEGA, VK,XK1,XK2, XMUINF 
DIMENSION ZZ(9) 


IF (KTW.EQ.O) GO TO 20 

CALCULATE TW 

JT=*0 

JT=JT+1 

IF (X.GT.XSTA(JT)) GO TO 10 

IF IJT.LT.3) JT=3 

IF ( JT. GT. ( I IHAX-2 ) ) JT-IIMAX-2 

CALL INTER5 ( X, XSTA( JT-2 ) ,XSTA( JT-1) ,XST A( JT ), XSTA(JT*i ), XSTA (JT+2 
1 ) ,TWZ( JT-2) ,TWZ( JT-1 ) ,TWZ( JT) , TWZ( JT+1 ) ,TWZ( JT+2) ,TW) 

BO=TW/TST AG 

IF (NEOIL.NE.O) TW=TW/TREF 
CONTINUE 

IF (KCQ.EQ.O) GO TO 40 
CALCULATE CQ 

IF (X.LE.XSTA(KINJI) GO TO 40 
IF (X.GT.XSTA(KNOINJ) ) GO TO 40 
JT=KI NJ 
JT=JT+1 

IF (X.GToXSTA(JT)) GO TO 30 
IF (JT.LT.(KINJ+2)) JT=KINJ+2 
IF (JT.GT. (KNOINJ-2)) JT*KN0INJ-2 

CALL INTER5 ( X, XSTA ( JT-2 ), XSTA ( JT-1 ), XSTA (JT ) ,XSTA( JT+l l,X$TA( JT+2 
1) ,CQZ< JT-2) , CQZ ( JT— 1 ),CQZ(JT), CQZ (JT+1), CQZ( JT+2) ,CQ ) 

CONTINUE 

IF (RO.EQ.O.O) VW=CQ/ ( EPSVD*SQRT( ROWE*XMUE*DUEDS* (XJFAC+1.0))) 

IF (RO.NE.O.O) Vy=CQ*SQRT(2.0*XI)/(XMUE*R0**XJFAC*RGWE*UE*EPSVD) 

IF (CQ.NE.O.O.AND.FTNJ.NE.O.O)' VW=-FINJ 
DIF=CONVRG 

IF (IADW.EQ.O) GO TO 60 
ADIABATIC WALL 
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C 


AC 73 

T21*T2(1 I AC 74 

Cll*( ONC 21+2o0*0N (i))/IDN{l)*(0N(2)+DNIl)l) AC 75 


GW=TCC2)*CDN(2J+DNU» )/J0N(2)*DNCl) I 
12 * >1 
GW=GW/C11 

IF INEQIL.NE.01 GO TO 50 

PERFECT GAS 

THI U=GW*ALPl 
HW=TH(1 ) #HE 
T2 ( 1 ) =GW 
T8=GH 
GO TO 80 
CONTINUE 

EQUILIBRIUM GAS 

PATMS=PE*PREF/2116. 2240 
PLOG=ALOG10 IPATMS ) 

HW=GW 

HOR=HW*HREF/(R*1.81 
HORL=*ALOG10 (HOR) 

ZZ(2)=HORL 

CALL SLOW (PLDG.ZZ,2,l,NT2.NV,NERRl 
TW=ZZ(11/TREF*1.80 
TH( i)=TW/TE 
TB=HW 
GO TO 60 
CONTINUE 

NON- ADI ABATI C WALL 
TW=B0*T10 

IF INEQIL.NE.01 GO TO 70 

PERFECT GAS 

HW=B0*HE 
THU )=TW/TE 
T2I U=B0 
T8=B0 
GO TO SO 

EQUILIBRIUM GAS 

70 TSTR=TW*TREF/1.80 
ZZ(1)=TSTR 
PSTR=PE*PREF 
PATMS=PSTR/ 2116. 2240 
PLQG=AL0G10 (PATMS ) 

CALL SLOW IPL0G,ZZ,1,2,NT2,NV,NERR) 
HORLOG=ZZ< 2 ) 

H=10.O**HDRLOG*R*1.8 

TH(l)=TW/TE 

HW-H/ HREF 

T2(1)=HW/HE 

Ta=T2(l} 

SO CONTINUE 
TCI II =TB 
RETURN 
END 


TC(3)*DNtll/IDNI2)*(DNCl J+DN( AC 76 

AC 77 
AC 78 
AC 79 
AC 80 
AC 81 
AC ,82 
AC 83 
AC 84 
AC 85 
AC 86 
AC 87 
AC 88 
AC 89 
AC 90 
AC 91 
AC 92 
AC 93 
AC 94 
AC 95 
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AC 100 
AC 101 
AC 102 
AC 103 
AC 104 
AC 105 
AC 106 
AC 107 
AC 108 
AC 109 
AC 110 
AC 111 
AC 112 
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AC 135- 
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10 

C 


SUBROUTINE WDGFP1 

SUBROUTINE W0GFP1 CALLS SUBROUTINES DENSIT, SLOW, AND VISCO. 

SUBROUTINE WDGFP1 IS CALLED- 8Y SUBROUTINE GEOM. 

SUBROUTINE WDGFP1 CALCULATES THE EDGE AND REFERENCE PROPERTIES 
FOR A WEDGE OR A FLAT PLATE AT THE INITIAL VALUE OF X. 

COMMON /EDGPRjV ALP,ALPl-» BETA » DUEDS ,G» GAM EFFi HALP»'HE» HESTAT,PE, PES 
-lQyPP, RGAS j RQESO»RQWE»RO WEP , T£ »TESO, UE , UER02,U6S0 »XM, XMUE, XMUEP »XMU 
2S0 

COMMON /FRSTRM/ AHUINF,CX ,HFS,HEXIT , PEX IT , PFS , REINF, RHO FS , T FS ,T IN, 
1UFS , XMA, XMUFS 

COHMON /GEOME/ ANGLE, DS , DX, 0X1, DXHAX, DXOLD, PNC ,R,RO,REFLEN,SCF,THS 
1H0K,X,XI,XI2,XI OLD, XOLD,XJAY,XJFAC,Z,ZOL 

COMMON / INTGR/ IE, UMAX, IM, IPRNT , I STOP, I TH »KL,KPD,KVSLAW, NEQIL ,NEQ 
1L, NIT, NIT1»NIT2,NIT3, NOSE 

COMMON /REF / AMUREF,CMSTD,HREF , POPRI M,PREF,RHOREF,RHOST 0,TREF,TREF 
11 ,UREF, XMUREF 

COMMON /STAG/ HSTAG»P10 ,PSTAG,RHOSTG,TlO,TST AG 

COMMON /SUTH/ CPRIM 

COMMON /TAPENV/ NT1,NT2,NT3,NT4,NV 

COMMON /VSCSTY/ CSTAR,EPSVD,0MEGA,VK,XK1,XK2,XMUINF 
DIMENSION ZZ (9) 

IF (NEQIL.EQ.il GO TO 10 

PERFECT GAS SOLUTION FOR A FLAT PLATE 
T 10= 0. 50* 1. OO/I XMA* XH A* ( G- 1.001 ) 

P10 = < ( ( IG+1. l*XMA*XMA)/2. >**(G/ (G-1.0 1 1 J*( 1 1 G+1.0 1/(2. 0*G*XHA*XMA- 
HG-1.0)))**tl.0/(G-1.0) 1 )/<G*XMA*XMAI 
XMACHS=XMA**2 
UFS=XMA* ( $QRT(G*TFS*R) 1 
CPRIME=CSTAR/((G-1.001*XMACHS*TFS) 

r DD J U-r DD T M P 

THSH0K=THSH0K*3. 1415930/180.0 

XMTHSK=XMA*SIN { THSHOK 1 

IF ( THSHOK. EQ.0.0 1 XMTHSK=1.0 

XMTH SQ= XMTH SK**2 

S I NT H=S IN (ANGLE*3. 141590/180. 01 

ANGLE=ANGLE*3. 141590/180.0 

UESO=( 1.0-4.0*( (XMTHSQ-1.0]*(G*XMTHSQ+1.01 >/I (G+1.01**2*XMA**2*XMT 

1HSQ) ) **0.50 

TESO={ 2.0*G*XMTHSQ— (G— 1.0) ) *1 ( G-1.0 1 *XMTH$Q+2.0 1 / I < G-1.0 >*XMA**2*l 


AO 

AD 

AD 

AD 

AD 

AD 

AD 

AO 

AO- 

AD 

AD 

AD 

AD 

AD 

AD 

AD 

AD 

AD 

AD 


AD 

AD 


1 
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6 
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8 
• 9 
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12 

13 

14 

15 

16 

17 
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19 


AD 20 
AD 21 


AD 

AD 

AD 

AO 

AD 

AD 

AD 


22 

23 

24 

25 

26 

27 

28 


AD 29 
AD 30 
AD 31 
AD 32 


AD 

AD 

AO 


33 

34 

35 


AD 36 
AD 37 
AD 38 
AD 39 
AD 40 
AD 41 
AD 42 
AO 43 


44 

45 


AD 46 
AD 47 
AD . 48 


1G+1.0 )**2*XMTHSQ) 

AD 

49 

PESO=( 2.0*G*XMTHSQ-IG-1.0I I /<( G+1.0 )*G*XMA**2 ) 

AD 

50 

TE=T£SO 

AO 

51 

PE=PESO 

AD 

52 

UE=UESO 

AD 

53 

WRITE <6,401 T10.P10 

AD 

54 

WRITE (6,501 UESO , TESO , PESO 

AD 

55 

CALL DENSIT (ROWE,PE,TEI 

AD 

56 

CALL VISCO (OMEGA, TE,XMUE) 

AD 

57 

ROESO=ROWE 

AD 

58 

XHUSO=XMUE 

AD 

59 

DU£DS=0.0 

AO 

60 

PNC=0.0 

AD 

61 

BETA=0.0 

AD 

62 

pp=0,0 

AD 

63 

R0=1.0 

AD 

64 

ALP=UE**2/TE 

AD 

65 

UER02=UE 

AD 

66 

XMUEP=XMUE 

AD 

67 

R0WEP=ROWE 

AD 

68 

HE=T10 

AO 

69 

RETURN 

AD 

70 

CONTINUE 

AD 

71 


AD 

72 
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C EQUILIBRIUM 6AS SOLUTION FOR A FLAT PLATE 

C 

PATMS=PFS*144.0/2116.2240 
PL=ALOG10 ( PAT MS ) 

TDGRK=TFS/1.80 
ZZU)=TOGRK 
DO 20 J=2,6 

CALL SLOW <PL,ZZ,1,J,NT2,NV,NERR) 

20 CONTINUE 

HFS=10. 0**ZZ<2)*RGAS*1.8 
RHOFS=10.0**ZZ< 3) *RHOSTD 
XMUFS=ZZ(4) 

CX=ZZ(5)*RGAS 
HSTAG=HFS+UFS**2/2.0 
PSTAG=PFS*144.0+RH0FS*UFS**2/2.0 
PATMS=P STAG/2116* 2240 
PL=AL0G10 (PATMS ) 

HOR=H STAG/( RGAS*1 . 8 1 
H0RL=ALQG10( HOR) 

ZZ(2)=H0RL 

DO 30 J=i,3 

IF (J.EQ.2I GO TO 30 

CALL SLOW <PL,Z2»2, J,NT2,NV,NERR) 

30 CONTINUE 

TSTAG=ZZ<1)*1.80 

RHOSTG=lO.0**ZZ(3»*RHOSTO 

HREF=UFS**2 

UREF=UFS 

RHOREF=RH0FS 

TREF=UFS**2/CX 

PREF=RH0FS*UFS**2 

PATHS=PREF/2116.2240 

PL=ALOG 10 (PATHS I 

H0R=HREF/(RGAS*1.8) 

H0RL=AL0G10 CHOR ) 

ZZ( 2 )=HORL 

CALL SLOW (PL,ZZ,2,4,NT2,NV,NERR) 
XHUREF=ZZC4) 

XHU INF= XMUFS/XHUREF 
HE=HSTAG/HREF 
HESTAT=HF S/HREF 
P10=PST AG/PREF 
T10=TSTAG/TREF 
PE=PF S/PREF* 144*0 
T E=*TFS/TREF 
R0WE=RH0F5/RH0REF. 

XHUE=XHUF S/XMUREF 


AD 73 
AO 74 
AD 75 
AD 76 
AD 77 
AD 78 
AD 79 
AD 80 
AD -81 
AD 82 
AD 83 
AD 84 
AD 85 
AD 86 
AD 87 
AD 88 
AD 89 
AD 90 
AD 91 
AD 92 
AD 93 
AD 94 
AD 95 
AD 96 
AD 97 
AO 98 
AD 99 
AD 100 
AD 101 
AD 102 
AD 103 
AD 104 
AD 105 
AD 106 
AO 107 
AD 108 
AD 109 
AD 110 
AO 111 
AD 112 
AD 113 
AD 114 
AD 115 
AD 116 
AD 117 
AD 118 
AD 119 


TESO=TE AD 120 

PE SO=PE AD 121 

UESO=UE AD 122 

RQESD=R0WE AD 123 

XMUS0=XMUE AD 124 

UER02=UE AD 125 

XMUEP=XMUE AD 126 

ROWEP=RQWE AD 127 

0UE0S=0 *0 AD 128 

PNC =0.0 AD 129 

BETA=0.0 AO 130 

PP=0.0 AO 131 

ALP=UE**2/HESTAT AO 132 

WRITE 16,40) TlO, P10 AO 133 

WRITE (6,50) UESO.TESO.PESO AD 134 

RETURN AD 135 

C AD 136 

C AD 137 

C AD 138 

40 FORMAT ( 1H , 2X, 4HT10-, 6 15. 7,2X,4HP1 0=,E15. 7/ ) AD 139 

50 FORMAT I9H UESO= ,E15.7,8H TESO= ,E15.7,9H PESO= ,E15.7> AD 140 

END AD 141- 
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SUBROUTINE WDGFP2 


AE I 
AE 2 

SUBROUTINE HDGFP2 IS CALLED BY SUBROUTINE EGPROP. AE 3 

AE A 

SUBROUTINE WDGFP2 PROVIDES THE EDGE PROPERTIES FOR A WEDGE OR A AE 5 

FLAT PLATE AT THE VALUES OF X AFTER THE INITIAL VALUE OF X. AE 6 

AE 7 

COMMON /EDGPRP/ ALP, ALP1, BETA, DUEDS, G, GAMEFF, HALP., HE, HESTAT,PE,PES AE 8 

10,PP,RGAS,ROESD,ROWE,ROWEP,TE,TESO,UE,UERO2,UES0,XM,XMUE,XHUEP,XMU AE 9 

2S0 AE ID 

COMMON /GEOHE/ ANGLE, DS , DX , DXI, DXMAX, DXOLD, PNC, R, RO, REFL EN, SCF, THS AE 11 

1H0K,X,XI,XI2,XI0LD,X0LD,XJAY,XJFAC,Z,Z0L AE 12 

AE 13 
AE 14 

EDGE CONDITIONS CONSTANT AND COMPUTED IN W0GFP1 AE 15 

AE 16 

TE=TESO AE 17 

UE*UESO AE 18 

RGWE=ROESO AE 19 

XMUE= XMUSO AE 20 

DU£DS=0.0 AE 21 

R0=1,0 AE 22 

Z=X*COS( ANGLE) AE 23 

RETURN AE 24 

END AE 25- 


SUBROUTINE WRITE1 IKRITE1) AF 1 

AF 2 

SUBROUTINE WRITE1 IS CALLED BY MAIN AND SUBROUTINE READIN. AF 3 

AF 4 

THIS SUBROUTINE PROVIDES THE OUTPUT OF THE INPUT DATA ANO THE AF 5 

INITIALIZED DATA. AF 6 

AF 7 

COMMON /ARRAY2/ PZ t 50 1 1 ,RZ ( 501 > , TWZ I 501 ) ,UEZ( 501 J , XSTAC 501 1 ,ZA{ 501 AF 8 
II, I PR (101), IPRFL (101) AF 9 

COMMON /CNVERG/ CONVRG , CCRNI ,CRNI , DIF, DIFF, 01 FI, 01 F2,NC AF 10 

CDMMON /COMWLL/ A1B, BO, El, FF.F2N1 ,HW,T8 ,THN1 ,TH1 , TW.T2N1 ,T21.,VW,I A AF 11 
1DW.KTW AF 12 

COMMON /CFPR/ CF » PR ,PRL , PRT AF 13 

COMMON /EDGPRP/ ALP, ALP1, BETA, DUEDS , G, GAMEFF ,HALP, HE ,HEST AT, PE , PES AF 14 
10 »PP,RGAS»ROESO , ROWE, ROW EP,TE» T ESO, UE, UER02, U ESO,XM, XMUE, XMUEP, XMU AF 15 
2S0 AF 16 

COMMON /FRSTRM/ AMU INF, CX, HFS,HEXIT,PEXIT ,PFS,REINF,RHOFS,TFS,TIN, AF 17 
1UFS, XMA , XMUFS AF 18 

COMMON /GEOME/ ANGLE, DS, OX, DXI, DXMAX, DXOLD, PNC, R,RO,REFLEN, SCF, THS AF 19 
1HQK, X, XI, XI2, XIOL D»XQLD»XJAY»XJ FAC, Z, ZOL AF 20 

COMMON /INJECT/ CQZI501 ) ,CQ,CQ1,FINJ,KCQ,KINJ,KNQINJ,KPGRAD AF 21 

COMMON / INTGR/ IE, UMAX, IM, IPRNT, ISTOP ,1 TH »KL*KPD»KVSLAW» NEOIL ,NEO AF 22 
1L, NIT, NIT1,NIT2,NIT3, NOSE AF 23 

COMMON /NTEGER/ 1 1 , IPFL, (PRINT, JJ,K,KADETA,KEND,KEP,KFS,KSTOP,KSTR AF 24 
IT ,KTPW, KTRNSN»LAMTRB» NITTOT AF 25 

COMMON /NMLCRD/ ADT ESI , ETA INF, XKETA AF 26 

COMMON /REF/ AMUREF ,CMSTO,HREF, PO PRI M,PREF , RHOREF, RHOST O.TREF, TREF AF 27 
ll.UREF, XHUREF AF 28 

COMMON /STAG/ HSTAG»P10 , PST AG, RHOST G,T10 ,TST AG AF 29 

COMMON /STRT/ KRSTRT,NRSTRT . AF 3D 

COMMON /TAP ENV/ NT1.NT2, NT3,NT4,NV AF 31 

COMMON /TRANS/ ATR, CHI CRT, CHI MAX, GAMMA, XBAR, X I BAR,KTRANS AF 32 

COMMON /VSCSTY/ C STAR , EPS VO .OMEGA, VK , XK1 , XK2, XMUINF AF 33 

AF 34 
AF 35 

IF (KRITE1.EQ.2) GO TO 50 AF 36 

WRITE (6,60) KRST RT , NRSTRT »NT1 , NT2, NT3, NT 4 AF 37 

WRITE (6,70) NOSE *LAHTRB,KTRANS,KTRNSN, I ADW, KTW, KPD, KFS AF 38 

WRITE (6,80) NIT1,NIT2,NIT3,NC,IE,KEND,IIMAX,ITH AF 39 

WRITE (6,90) KADETA.KL, I PFL ,1 PRINT ,KVSL AW,KPGRAD, NV, N EQL AF 40 

WRITE (6,100) KCQ,KINJ, KNOI NJ,CQ,FINJ AF 41 

WRITE (6,110) TFS,UFS,XMA,REINF, TIN, XMUINF AF 42 
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IF ( KFS.NE.O ) WRITE (6,120) PFS, RHOFS, PSTAG.TSTAG AF 43 

IF (TREF1.GT.1.0) WRITE (6,130) TREFl, AMUREF, ANUINF AF 44 

WRITE (6,140) CHICRT»XBAR,ATR AF 45 

WRITE (6,150) BO, PRL.PRT, OMEGA, XK1,XK2 AF 46 

WRITE (6,160) CONVRG,AOTEST ,CRNI,XKET A, ETAINF AF 47 

WRITE (6,170) G,EPSVD,SCF,REFLEN . AF 48 

WRITE (6,180) XJFAC, ANGLE, THSHOK, DX1,DXMAX AF 49 

WRITE (6,190) POPRIM,CMSTD,GAHEFF,RHOSTD AF 50 

WRITE (6,200) CX, R, XMA . AF 51 

WRITE (6,210) (IPR(J)»J=1» I PRINT) AF 52 

WRITE (6,220) ( I PRFL( J) , J=1 ,IPFL) AF 53 

WRITE (6,230) AF 54 

IF (KCQ.NE.O) GO TO 30 AF 55 

DO 10 J=1 * 1 1 MAX AF 56 

CQZ(J)=0.0 AF 57 

DO 20 J=KINJ,KNOINJ AF 58 

CQZIJMCQ AF 59 

CONTINUE AF 60 

00 40 J=1»I IMAX AF 61 

AF 62 

IF (N0SE.EQ.2) UEZ(J)=1.0 AF 63 

AF 64 

********* FOR FLAT PLATE **************************** AF 65 

AF 66 

WRITE (6,240) J, Z A( J ) ,RZ< J) ,XST A( J) , PZ( J ) ,UEZ ( J ), TWZ ( J ) ,CQZ( J ) AF 67 

CONTINUE AF 68 

WRITE (6,250) AF 69 

RETURN AF 70 

CONTINUE AF 71 

WRITE (6,260) AF 72 

WRITE (6,270) AF 73 

WRITE (6,280) PSTAG»TSTAG, HSTAG.RKOSTG AF 74 

WRITE (6,290) PFS ,TFS, HFS, RHOFS AF 75 

WRITE (6,300) UF S » XHUF S ,C X »REI NF , XMA AF 76 

WRITE (6,310) PREF, TREE, HREF AF 77 

WRITE (6,320) RHGREF,XHUREF ,UREF AF 78 

RETURN AF 79 

AF 80 
AF 81 
AF 82 


FORMAT { 1H0 »2X .9HKRSTRT = ,I3,11H, NRSTRT = ,I2,8H, NT1 = ,I2,8H, AF 83 
1NT2 = ,12. 8H, NT3 = ,I2,8H, NT4 = ,12) AF 84 

FORMAT { 1H0»2X, 7HN0SE = , I1,11H, LAMTRB = ,I1,11H,. KTRANS = ,11,11 AF 85 
1H, KTRNSN = ,13 ,9H, IAOW = ,11, 8H, KTW = ,11, 8H, KPD = ,I1,8H, KFS AF 86 
2 = ,11) AF 87 

FORMAT (1H0,2X,7HNIT1 = , 12, 9H, NIT2 = ,I2,9H, NIT3 = ,I2,7H, NC = AF 88 
1 » I2«7H, IE •= , 13 ,9H , KEND = , I3,10H, . 1 1 MAX = ,I3,8H, ITH = ,13) AF 89 
FORHAT (1H0,2X, 9HKADETA = ,I1,7H, KL = ,11, 9H, IPFL = ,I3,11H, IPR AF 90 
1INT = , 13 ,1 1H , KVSLAW * ,Il,ilH, KPGRAD = ,11, 7H, NV = ,I2,10H, NE AF 91 


2QIL = ,11) AF 92 

FORMAT (1H0,2X, 6HKCQ = ,I1,9H, KINJ = ,I3,11H, KNOINJ = ,13,7H, CQ AF 93 
1 = ,F12.6,9H, FINJ = ,F12.6) AF 94 

FORMAT ( 1H0,2X,6HTFS * ,F12.6,8H, UFS = »F12.6,9H, HINF = ,F9.5,10 AF 95 
1H, REINF = ,1PE14'.7,8H, TIN = , 0PF10. 6, 11H, XMUINF = ,F10.6> AF 96 

FORMAT (1H0»2X,6HPFS = ,F10.6,10H, RHOFS = ,1PE13.6,10H, PSTAG = , AF 97 
10PF12.4, 10H, TSTAG = ,F12.6) AF 98 

FORMAT (1H0 ,2X, 8HTREF1 = ,F12.6,11H, AMUREF' = ,1PE13.6,UH, AMUINF AF 99 
1 = ,E13.6) AF 100 

FORMAT (1H0,2X, 10HCHICRIT = ,F12.3,9H, XBAR = ,F12.6,8H, ATR = ,F1 AF 101 
12.6) AF 102 

FORMAT (1H0,2X,5HB0 = ,F9.6,8H, PRL = ,F7.4,8H, PRT = ,F7.4,10H, 0 AF 103 
1MEGA = , F7.4, 8H, XK1 = ,F7.4, 8H, XK2 = ,F9.6) AF 104 

FORMAT (IHO ,2 X.9HC0NVRG = ,F7.4,11H, ADTEST = ,F7.4,9H, CRNI = ,F7 AF 105 
1.4, 10H, XKETA = ,F7.4,11H, ETAINF a ,F7.2) AF 106 

FORMAT (IH0,2X,8HCP/CV = ,F12.6,10H, EPSVD = ,F12.6,17H, SCALE FAC AF 107 
1T0R = , F9. 5 ,21H , REFERENCE LENGTH = ,F9.4) AF 108 

FORMAT I IHO, 2X, 8H XJFAC = ,F7.4,10H, ANGLE = ,F9.6,11H, THSHOK = ,F AF 109 
19.6 ,7H, DX = »F7«4» 10H, OXMAX = ,F7.4) AF 110 

FORMAT ( IH0,2X,9HP0PRIM = ,F12.4.,10H, CMSTD = ,F10.6,11H, GAMEFF = AF 111 
1 , F9.6, 11H, R HO STD * ,F12.9) AF 112 

FORHAT ( IHO ,2 X,3HCP=, F8 .2,1X ,25HFT2/ ( SEC2— DEGREE RANKINE) ,3X,2HR=>, AF 113 
1F8. 2, lX,25HFT2/( SEC2-DEGREE RANKINE) ,3X,24HFR£E STREAM MACH NUHBER AF 114 
2-,F8.4//////) AF 115 

FORMAT ( IHO, 3X,3HIPR,4X, 2015, //{11X, 2015/) ) AF 116 
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220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 


FORMAT (1H0,3X,5HIPRFL,2X,20I5,//(UX,20 15/ ) ) 

FORHAT ( 1H0»3X» L4HAXIAL POSITION, 14X,2HZA,13X,2HRZ,12X,4HXSTA,10X, 
12HPZ,13X,3HUEZ,12X,3HTWZ,12X,3HCQZ/) 

FORMAT (9X,I3,10X,7F15.6> 

FORMAT C1H0I 
FORMAT { INI) 

FORMAT (1H0,50X,30HBEGIN EQUILIBRIUM GAS SOLUTION) 

FORMAT (1HO,2X,20HRESERVOIR CONDITIONS, 5X,6HPSTAG= 1PE12. 6, IX, 6HTST 
1AG=E12.6, 1X,6HHSTAG=E12.6,1X,7HRH0STG=E12.6) 

FORMAT (1H0,2X, 22HFREE STREAM CONDIT-IONS , 5X,4HPFS=lPET2s 6, 1X,4HTFS 
l=E12.6,rx,4HHFS=E12.6,lX,6HRH0FS=£12.6> 

FORMAT ( lH0»2X,4HUFS=lPE12.6,lX,6HXMUFS*E12.6 f lX,3HCP=E12.6,lX,6HR 
1£INF*1PE12.6,1X,4HXMA=E12.6) 

FORMAT (1H0,2X,20HREFERENCE C0NDITI0NS5X,5HPREF=1PE12.6,1X,5HTREF= 
1E12.6, IX, 5HHREF=E 12.6.) 

FORMAT (1H0 ,2X,7HRH0REF= IPE12.6, 1 X, 7HXMUREF=E12.6, IX, 5HUREF=E12. 6, 
1 /////) 

ENO 


AF 117 
AF 118 


AF 

AF 

AF 


119 

120 
121 


AF 122 
AF 123 


AF 

AF 


124 

125 


AF 1‘26 
AF 127 
AF 128 
AF 129 
AF 130 
AF 131 
AF 132 
AF 133 
AF 134- 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


SUBROUTINE WRITE2 

SUBROUTINE WRITE2 CALLS SUBROUTINE READIN. 

SUBROUTINE WRITE2 IS CALLED BY MAIN AND SUBROUTINE READIN. 

THIS SUBROUTINE CONTROLS THE OUTPUT AFTER A. CONVERGED SOLUTION IS 
OBTAINED. 

COMPLETE SOLUTIONS ARE WRITTEN ONLY AT SELECTED VALUES OF X, 

I. E. AT X=XSTA( IPRFL) » 

ALL OTHER COMPUTED RESULTS ARE WRITTEN FOR EVERY VALUE OF X AT 
WHICH A SOLUTION IS OBTAINED. 

SUBROUTINE READIN IS CALLED TO WRITE THE RESTART TAPE WHEN 
APPROPRIATE. 

COMMON /ARRAY1/ A0U01) ,AOB(101) ,A0BP1101) ,A1(101) , A2 ( 101 ) , A3 1101 ) 

1, A4 (101), Cl (101 ),C1N(101),C(101),CP( 101 ), CHI ( 101) ,DN(102) ,DN2(102) 

2, EPSOI101),EPSPL(101),F1(101),F1N(101),F1NN(101),F2(101), F2N( 101), 
3F2NN( 101 ) , FC( 101 ) ,FCN( 101) ,FCP( 101) ,PREQ(101) ,ROROE ( 101) , T1 (101 ) ,T 
41N(101),T1NN(101) ,T2( 10 1 ),T2N(101 ) , T2NN ( 101 ) , TC ( 101 ) , TCN( 101) ,TH( 1 
5011, THP ( 101 ) » VC ( 101 ) ,XN( 10 2 ) » XN2 (102 ) » Y( 101 ) , YOVDEL (101 ) , YDVTHT ( 10 
61 ) , YY ( 101 ) 

COMMON / ARRAY2/ PZI 50 1 ) , RZ { 501 ) , TWZ ( 501 ) ,UEZ( 501 ) , XSTA( 501),ZA( 501 
1),IPR(101),IPRFL(101) 

COMMON /COEFF/ CFBAR, CFBREX,CFE,CFINF,CFRES,CFREY,CH,CHEDGE,CHOCF, 
1CHREY, DEL, DELST, DELTA, DSTARK, DSTRAX , HAFCF, HG, HG1, HG2, QDOT, RETHET, R 
2EX, STE, STINF, THET 

COMMON / C0EFF2/ OELORF, DELOX, DSAXOR, DSTODL ,DSTORF, DSTOTH, DSTOX ,ROR 
1EFL ,THODEL, THOREF ,XOREFL,ZOREFL 
COMMON /CGEFF3/ CF1,HGFAC1,HGFAC2,QW,SUM 

COMMON / COMWLL/ A1B.B0, El, FF, F2N1, HW,TB,THN1, TH1, TW,T2N1 ,T21 ,VW , I A 
1DW,KTW 

COMMON /CFPR/ CF, PR ,PRL , PRT 

COMMON /EDGPRP/ ALP, ALP1, BETA, DUEOS, G, GAMEFF, HALP, HE, HESTAT, PE * PES 
lO,PP,RGAS»ROESQ»ROWE,ROWEP»TE,TESO»UE»UER02»UES0 ,XM,XMUE,XMUEP,XMU 
2S0 

COMMQN^/GEOME/ ANGLE, DS , DX, DX1, DXMAX, DXOLO,PNC,R,RO»REFLEN, SCF , THS 
1H0K, X&epftKl'Z , XI OLO , XOLD , XJA Y, X JFAC , Z ,ZOL 

COMMON /INJECT/ CQZ(501 ) , CQ ,CQ1 , F INJ ,KCQ , KINJ ,KNOI NJ , KPGRAO 
COMMON /INTGR/ I E ,1 IHAX , IM, I PRNT , ISTOP, ITH,KL, KPO, KVSL AW, NEQIL ,NEQ 
1L, NIT, NIT1,NIT2,NIT3, NOSE 

COMMON /NTEGER/ II, IPFL, IPR INT, JJ,K,KADETA,KEND,KEP,KFS,KSTOP,KSTR 
1T,KTPW,KTRNSN, LAMTRB.NITTOT 
COMMON /TAPENV/ NT1,NT2,NT3,NT4,NV 

COMMON /TRANS/ AT R, CHICRT, CHIMAX, GAMMA, XBAR, XI BAR, KTRANS 
COMMON /VSCSTY/ C STAR, EPS VO , OMEGA, VK, XK1 *XK2 ,XMU INF 


AG 

1 

AG 

2 

AG 

3 

AG 

4 

AG 

5 

AG 

6 

AG 

7 

AG 

8 

AG 

9 

AG 

10 

AG 

11 

AG 

12 

AG 

13 

AG 

14 

AG 

15 

AG 

16 

AG 

17 

AG 

18 

AG 

19 

AG 

20 

AG 

21 

AG 

22 

AG 

23 

AG 

24 

AG 

25 

AG 

26 

AG 

27 

AG 

28 

AG 

29 

AG 

30 

AG 

31 

AG 

32 

AG 

33 

AG 

34 

AG 

35 

AG 

36 

AG 

37 

AG 

38 

AG 

39 

AG 

40 

AG 

41 

AG 

42 

AG 

43 

AG 

44 

AG 

45 

AG 

46 

AG 

47 

AG 

48 

AG 

49 


- 152 - 



10 


20 

30 


40 

50 

C 

c 

c 

60 

c 

c 

c 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 


WRITE (6,701 X, X I, Z» ZOL»R0* BETA ,PP,N IT,K 
WRITE (6,80) T£»UE»XM,ROW£ »XMUE, PE, OU EDS 
WRITE (6,90) CF,QW,HG ,EPSVD»CQ»KEP»NITTQT 
WRITE (6,100) F2N(1)»F2N(3I »F2NN( 1},F2NN(3)> 

IF (X.EQ.O.O) GO TO 10 

WRITE (6,110) CHI MAX, GAMMA, XI BAR 

IF (KFS.EQ.O) WRITE (6,120) REX 

IF (KFS.NE.O) WRITE (6,130) REX,QDOT ,HG1 ,HG2 

WRITE (6,140) STE,STINF,CHEOG£,CH,CHREY 

WRITE (6,150) CFE,CFINF,CFBAR,CFBREX,CFREY 

ANALGY=CH/HAFCF 

WRITE (6,160) HAFCF, ANAL-GY, CHOCF 
WRITE (6,170) XOREF L , ZOREF.L »ROREFL» DELQX , D5T0X 
WRITE (6,180) THOREF,DSTORF,OELORF,DSAXOR 
WRITE (6,190) THOOEUOSTOOL,DSTQTH,OSTRAX 
WRITE (6,200) OSTARK, DEIST, DEL, THET,RETHET 
CONTINUE 

IF (K.EQ.ll GO TO 20 

IF (IPRFL(IPRNT).EQ, IPR(II-D) GO TO 20 

IF ( ABS 1 1,0— XOLD/XSTA (KTRNSN) ) • LE.l. E— 6 ) GO TO 20. 

GO TO 50 
WRITE (6,210) 

DO 30 N=1,IE,KL 

WRITE (6,220) XN( N) » YY( N) , YOVTHTI N) ,YOVDEUN> ,FC(N) ,FCN (N), F2NN <N) 
1,EPSPL(NJ,A0BP(N),N 
WRITE (6,230) 

DO 40 N=1,IE,KL 

WRITE (6,220) XN{ N ),TC( N ) , TCN( N ), VC (N ) , TH( N) , ROROE ( N) ,C(N),CP(N) ,C 
1H I ( N) ,N 
CONTINUE 

IF (K.NE.l) IPRNT=IPRNT + 1 
WRITE (6,240) 

CONTINUE 

IF (NT3.EQ.0) GO -TO 60 
IF (KTPW.NE.K)' GO TO 60 

WRITE STATION DATA ON RESTART TAPE 

KREADN=3 

CALL READIN (KREAON) 

CONTINUE 

IF (A1B.LT.0.01 HRITE (6,250) 

IF (A1B.LT.0.0) STOP 
RETURN 


FORMAT (1H0.2X.3HS = , F10.5, 1H,/16X, 6H XI =,F10.5,5H, Z =,F9.5,7H, 

1 Z/L =,F8.5,6H, RO =,F8.5,8H, BETA =,F8.5,6H, PP =,F12.5,8H, NIT = 

2 ,13, 5H, K =» 13 ) 

FORMAT C1H0,2X,4HTE =,F8.5,6H, UE=,F8.5,9H, MACHE = , Fll. 7, 8H, RHO 
IE = ,F11.5»7H, MUE = ,F8.5,6H, PE =,F11.5,9H» DUEDS =,F11.5) 

FORMAT (1H0,2X,4HCF =,F11.5,6H, QW =,F11,5,6H, HG =,E14,6,9H, EPSV 
ID =,E13.6,6H, CO =,E13.6,7H, KEP =,I3,10H, NITTOT =,I5) 

FORMAT ( 1H0,2X,8HF2N(1) =,F12.6,10H, F2N<3) =,F12.6,11H, F2NN(1) = 
1 , F 12 * 6 , 11 H> F2NN < 3 ) =,F12.6) 

FORMAT (1H0,2X,8HCHIMAX =,l PE13.6 ,9H, GAMMA =, E13.6 , 9H, XIBAR =,El 
13.6) 

FORMAT (1H0,2X,5HREX =, 1PE12.5) 

FORMAT ( 1H0,2X,5HREX =, 1PE12. 5, 11 X, 18HWALL HEAT TRANSFER, 33X , 26HHE 
1 AT TRANSFER COEFFICI 6NTS/33X, E 13. 6, 27X, E13. 6, 17X, E 13. 6/32X, 1 5H8TU/ 
2<FT**2*SEC) ,21X,24HBTU/(IN**2*SEC*DEGREE R>,11X,15HLBM7(IN**2*SEC1 
3) 

FORMAT (1H0,2X, 5HSTE =, 1PE1 3.6, 9H, STINF =,E13.6,10H, CHEOGE =,E13 
1. 6»9H, CHINF =, E13.6 ,19H» CHINF*S QRT (REX 1 =,E13.6) 

FORMAT ( 1H0,2X,5HCFE =,1PE13. 6,9H, CFINF =,E13.6,13H, CF(TOTAL) =, 
1E13.6.19H, CFBAR*SQRT(REX) =, E13. 6, 19H, CF I NF*SQRT(REX) =,E13.6) 
F0RMA.T/T( : 1H0,2 X, 9HCF INF/2 =,1PE13.6,19H, CH INF/ ( CFINF/2 ) =,E13.6,18 
1H, CHEDGE/CCFE/2) =,£13.6» 

FORMAT I 1H0 ,2X, 10HX/REFLEN =, 1PE13.6, 12H, Z/REFLEN =,E13.6,13H, RO 
1/REFLEN = ,E 13. 6, 11H , DELTA/X *=, E13. 6,12H, DELSTR/X =,E13.6) 

FORMAT ( 1H0,2X,14HTHETA/REFLEN =, 1PE13. 6,17H, DELSTR/REFLEN =,E13. 
I6,I6H, DELTA/REFLEN =,E13.6,20H, DELSTRAX I/REFLEN =,E13.6) 

FORMAT ( 1H0,2X, 13HTH6TA/DELTA =,1 PE13.6 ,16H, OELSTR/DELTA =,E13.6, 
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116H, OELSTft /THETA =,613.6 

,13H, DELSTRAXI =,E13.6) 



AG 

124 

200 

FORMAT 

{ 1H0,2X, 9HDELSTRK 

=, 1PE12. 5, 10H, DELSTR =,E12. 

5,9H, DELTA 

= 

AG 

125 


1 ,E12.5, 

9H, THETA =>,E12.5, 

11 H, RETHETA =,E12.5///) 



AG 

126 

210 

FORMAT 

(1H0,/124H 

ETA Y . Y/THETA 

Y 

AG 

127 


1/ DELTA 

F=U/UE 

FPINJ FPP 

EPS+ 


AG 

128 


2 AO BP 

,4X,2H N/I 




AG 

129 

220 

FORMAT 

(9F14.6.I5) 




AG 

130 

230 

FORMAT 

(1H0,/123H 

ETA G=H/HE 

GPIN) 


AG 

131 


1 V 

T/T6 

RHO/RHOE RHCMU/RHQEMU E 

CP 


AG 

132 


2 CHI 

» 5X»2H N/> 




AG 

133 

240 

FORMAT 

UX.//1 




AG 

134 

250 

FORMAT 

{ 1H1,10X,83HPR0BLEM TERMINATED. NEGATIVE DF/DETA INDICATES 

T 

AG 

135 


1HAT THE 

BOUNDARY LAYER HAS SEPARATED) 



AG 

136 


END 





AG 

137- 



SUBROUTINE ZRO (JJ,X2,Z,R0) 

AH 

1 

C 


AH 

2 

C 

SUBROUTINE ZRO CALLS SUBROUTINE INTERS. 

AH 

3 

C 


AH 

4 

C 

SUBROUTINE ZRO IS CALLED BY SUBROUTINES BLUNT2, N0ZLE1 AND N0ZLE2. 

AH 

5 

C 


AH 

6 

C 

SUBROUTINE ZRO CALCULATES FOR AXI-SYMMET RIC FLOW AN AXIAL DISTANCE 

AH 

7 

C 

l AND A RADIUS RO CORRESPONDING TO A SURFACE DISTANCE X2. 

AH 

. 8 

c 


AH 

9 


COMMON /ARRAY2/ PZI501) ,RZ( 5011 , THZC5D1 ) ,UEZ(501 1 .XSTAI501 ) ,ZA(501 

AH 

10 


1), I PR (101), IPRFL (1011 

AH 

11 

c 


AH 

12 

c 


AH 

13 


J=0 

AH 

14 

10 

J=J+1 

AH 

15 


IF ( X2.GT. XSTA( J ) ) GO TO 10 

AH 

16 


IF (J.LT.3) J=3 

AH 

. 17 


IF (J.GT. (JJ-2) 1 J=JJ-2 

AH 

18 


CALL INTER5 ( X2.XSTAI J-2) , XSTA( J-l) ,XSTA(JI ,XST A( J+l ) , XSTA ( J+2 ) , RZ 

AH 

19 


1( J-2),RZ(J-1) ,RZ(J),RZ(J+1 >,RZ(J+2),R0) 

AH 

20 


CALL INTERS ( X2, XSTAI J-2) ,XSTA( J-l 1 , XSTA < J ) ,XSTA ( J+l ), XSTA ( J+2 ), ZA 

AH 

21 


1< J-2) ,ZAlJ-i) ,ZA( J),ZA(J+1),ZA(J+2),Z) 

AH 

22 


RETURN 

AH 

23 


END 

AH 

24- 



SUBROUTINE DERIV3 ( F, X, IMAX, IMIN.FP ) 

AI 

1 

C 


AI 

2 

C 

SUBROUTINE DERIV3 CALLS SUBROUTINE FD3. 

AI 

3 

C 


AI 

4 

C 

SUBROUTINE DERIV3 IS CALLED BY MAIN AND SUBROUTINES ADDETA, EFFMU, 

AI 

5 

C 

ENERGY, AND SOLVE. 

AI 

6 

C 


AI 

7 

c 

SUBROUTINE DERIV3 CALCULATES THE FIRST DERIVATIVES OF F WITH 

AI 

8 

c 

.-~>RESPECT TO X AND RETURNS THE ARRAY FP. 

AI 

9 

c 

' 4 

AI 

10 


DIMENSION F ( 1) , XU), FPU) 

AI 

11 

c 


AI 

12 

c 


AI 

13 


DO 10 J=I MI N»I MAX 

AI 

14 


K=J 

AI 

15 


IF (K.LT. ( I MIN+1) ) K= I M I N+l 

AI 

16 


IF (K.GT. { I MAX— 1) ) K=IMAX-1 

AI 

17 


CALL FD3 (X(J),X(K-1),X(K),X(K*1),F(K— 1),F(K>,F(K+1>,FP(J) J 

AI 

18 

10 

CONTINUE 

AI 

19 


RETURN 

AI 

2D 


END 

AI 

21- 
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SUBROUTINE INTER? ( XX,XN,F2,IE,FF ) 

AJ 

I 

c 


AJ 

2 

c 

SUBROUTINE INTERP CALLS FUNCTION TLU. 

AJ 

3 

c 


AJ 

4 

c 

SUBROUTINE INTERP IS CALLED BY SUBROUTINES COEF AND EFFMU. 

AJ 

5 

c 


AJ 

6 

c 

SUBROUTINE INTERP USES FUNCTION TLU TO INTERPOLATE IN ARRAY F2 

AJ 

7 

c 

FOR THE VALUE FF CORRESPONDING TO THE VALUE XX IN ARRAY XN. 

AJ 

8 

c 

IF XX .LT. XNU) .OR. XX . GT. XNl IE1 , FF IS SET EQUAL TO F2IIEI 

AJ 

9 

c 

AND A MESSAGE IS PRINTED. 

AJ 

10 

c 


AJ 

11 


DIMENSION XNU), F2I1) 

AJ 

12 

c 


AJ 

13 

c 


AJ 

14 


FF=TLU( IE,F2» XN, XX, NFLAG) 

AJ 

15 


IF I NFLAG.NE. 1 ( RETURN 

AJ 

16 


WRITE (6,101 

AJ 

17 


FF-F2C IEJ 

AJ 

18 


RETURN 

AJ 

19 

c 


AJ 

20 

c 


AJ 

21 

c 


AJ 

22 

10 

FORMAT C1H0»10X,38HINADAQUATE TABLE FOR SUBROUTINE INTERP, //11X,43 

AJ 

23 


1HSTANDARD FIXUP TAKEN - EXECUTION CONTINUING! 

AJ 

24 


END 

AJ 

25- 



FUNCTION TLU (NTABLE,Z,X ,XSTAR, NFLAG) 




AK 

1 

C 





AK 

2 

C 

FUNCTION TLU IS CALLED BY SUBROUTINE INTERP. 




AK 

3 

C 





AK 

4 

C 

FUNCTION TLU ISA ONE-DIMENSIONAL- TABLE LOOK-UP PROGRAM. 

AK 

5 

C 

CORRESPONDING VALUES OF X (ALWAYS INCREASING) AND 

Z 

ARE STORED 

AK 

6 

C 

IN THE ARRAYS X< 1) . . . X( NTABLEI AND ZUJ... 

Z( NTABLE) . 

US ING 

AK 

7 

C 

LINEAR INTERPOLATION, THIS FUNCTION WILL GENERATE 

A 

VALUE OF Z 

AK 

8 

C 

CORRESPONDING TO A SPECIFIED VALUE OF X = 

XSTAR. 



AK 

9 

C 





AK 

10 


DIMENSION X(l). Zll) 



- 

AK 

l-l 

C 





AK 

12 

C 





AK 

13 

C 

CHECK TO SEE IF XSTAR LIES WITHIN THE SCOPE DF 

THE 

AK 

14 

c 

TABULATED VALUES X(1 ) ...X < NTABLE) 



. . 

AK 

15 

c 





AK 

16 


NFLAG=0 




AK 

17 


IF ( XSTAR.LT. XU I ) GO TO 10 




AK 

18 


IF (XSTAR.LE. XI NTABLE!) GO TO 20 




AK 

19 

10 

NFLAG=1 




AK 

20 


TLU=0. 0 




AK 

21 


RETURN 




AK 

22 

c 





AK 

23 

c 

SEARCH TO FIND TWO SUCCESSIVE ENTRIES, 

„ 



AK 

24 

c 

X(I-l) AND X(I>, BETWEEN WHICH XSTAR LIES 




AK 

25 

c 





AK 

26 

20 

1 = 1 




AK 

27 

30 

IF (X( U.GT.XSTAR) GO TO 40 




AK 

28 


IF ( I. GE. NTABLE) GO TO 40 




AK 

29 


1=1 + 1 




AK 

30 


GO TO 30 




AK 

31 

c 





AK 

32 

c 

..... LINEARLY INTERPOLATE TO FIND CORRESPONDING VALUE 

OF Z 

AK 

33 

c 





AK 

34 

AO 

TLU=Z t I— 1 ) + I XSTAR— X( 1-1) )*I Zl I )— Z 1 1- 1) )/{XU) 

-XU-1!) 



AK 

35 


RETURN 




AK 

36 

c 





AK 

37 


END 




AK 

38- 
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SUBROUTINE INTER3 (X,X1 ,X2 ,X3 ,Fi, F2 , F3, F) AL 1 

Al 2 

SUBROUTINE INTER3 IS CALLED BY SUBROUTINE ADDETA. AL 3 

AL 4 

SUBROUTINE INTER3 INTERPOLATES FOR THE VALUE F CORRESPONDING TO AL 5 
POINT X USING 3 POINT L AGRANGIAN INTERPOLATION. AL 6 

AL 7 

ASSUMES XI .LE. X .LE. X3. AL 8 

AL 9. . 

Al=( X— X2I*( X-X3). . AL 10 

’ A'2= ( X— XI I *( X-X3 ) AL 11 

A3= { X-Xl > * ( X— X2 I AL 12 

D1=(X1-X2)*IX1-X3) AL 13 

D2=(X2-X1>*(X2-X3) AL 14 

03=(X3-X1)*(X3-X2> AL 15 

C1=A1/D1 AL 16 

C2-A2/D2 AL 17 

C3*A3/D3 AL 18 

F=»Cl*FH-C2*F2+C3*F3 AL 19 

RETURN AL 20 

END AL 21- 


SUBROUTINE INTERS ( X, X1,X2, X3, X4, X5,F1, F2, F3, F4,F5,F ) 

AM 

1 



AM 

2 

SUBROUTINE INTERS IS CALLED BY SUBROUTINES BLUNT1, BLUNT2, EDGE, 

AM 

3 

I NIT, MACH, SLOW, WALL, ZRO, AND INTRR5. 


AM 

4 



AM 

5 

SUBROUTINE INTERS" INTERPOLATES FOR THE VALUE F 

CORRESPONDING TO 

AM 

6 

POINT X USING 5 POINT L AGRANGIAN INTERPOLATION 

FORMULA. . 

AM 

7 



AM 

8 

ASSUMES XI .LE. X .LE. XS. 

- 

AM 

9 



AM 

10 

Ai=<X-X2)*{ X-X3)*(X-X4)*{X-X5> 


AM 

11 

A2= (X— XI )*! X— X3 I* (X.— X4I*( X-X5 ) 


AM 

12 

A3=(X-X1 )*< X— X2 I* IX— X4 )*{X— X5 I 


AM 

13 

A4= ( X— XI )*( X-X2 >* C X— X31 *( X-X5 ) 


AM 

14 

A5 = IX— X1)*(X-X2)=MX-X3I*{X-X4J 


AM 

15 

D1=(X1-X2I*IX1-X3)*(X1-X4»*(X1-X5J . 


AM 

16 

D2=(X2— XII* (X2-X3 I* CX2—X4 1*1X2— X5 I 


AM 

17 

03=<X3-Xl)*iX3-X2)*( X3— X4I*( X3-X5I 


AM 

18 

D4= ( X4-X1 1* I X4-X2 1* ( X4-X3 I* I X4-XS I. 


AM 

19 

05=(X5-X1)*{X5— X2)*(X5— X3)*{ X5— X4) 


AM. 

20 

C1=A1/D1 


AM 

21 

C2=A2/D2 


AM 

22 

C3=A3/D3 


AM 

23 

C4=A4/04 


AM 

24 

C5=A5/D5 


AM 

25 

F=C1*F1+C2*F2+C3*F3+C4*F4+C5*F5 


AM 

26 

RETURN 


AM 

27 

END 


AM 

28- 
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SUBROUTINE INTRP5 (XO, X1»F1, IMAX, IMIN,I1,F0J 


AN 

1 

c 




AN 

2 

c 

SUBROUTINE INTRP5 CALLS SUBROUTINE INTERS. 



AN 

3 

c 




AN 

4 

c 

SUBROUTINE INTRP5 IS CALLED BY SUBROUTINES 

EDGE, -EDGE1, EQLDTA, 

AN 

5 

c 

AND NOIL El. 



AN 

6 

c 




AN 

7 

c 

SUBROUTINE INTRP5 INTERPOLATES IN ARRAY FI 

FOR 

THE VALUE FO 

AN 

8 

c 

CORRESPONDING TO THE VALUE XO -IN ARRAY XI. 

XI 

MUST BE EITHER 

AN 

9 

c 

MONOTONE INCREASING OR DECREASING. 



AN 

10 

c 




AN 

11 

c 




AN 

12 

c 

Il.LT.D, XI MONOTONE DECREASING 



AN 

13 

c 

Il.GE.O, XI MONOTONE INCREASING 



AN 

14 

c 




AN. 

15 


DIMENSION X1U), Fill) 



AN 

16 

c 




AN 

17 


IF (IMAX.EQ.5) J=3 



AN 

18 


IF (IMAX.EQ.5I GO TO 40 



AN 

19 


IF (Il.GE.O) GO TO 20 



AN 

20 


J= 1 MIN-1 



AN 

21 

10 

J=J+1 



AN 

22 


IF (Xl( J J.GT.XOJ GO TO 10 



AN 

23 


IF (J.LT.UMIN+2)) J=IMlN+2 



AN 

24 


IF ( J.GT. (I MAX-2)) J=I MAX-2 



AN 

25 


GO TO 40 



AN 

26 

20 

J=I MI N-l 



AN 

27 

30 

J = J*1 



AN 

28 


IF IX1IJI.LT.X0) GO TO 30 



AN 

-29 


IF (J.LT. (I MIN+2 H J=IMIN+2 



AN 

30 


IF (J.GT. UMAX-2)) J=IMAX-2 



AN 

31 

40 

CALL INTERS (XO »X1 ( Jr-2 ),X1(J-1),X1(J), XI ( J+l )» 

X1IJ+2),F1< J— 2}»F1(J 

AN 

32 


1-1),F1( J).F1( J+l) ,F1( J+2J ,F0) 



AN 

33 


RETURN 



AN 

34 


END 



AN 

35- 



SUBROUTINE F03 (X ,X1 ,X2 ,X3 ,F1 , F2 , F3 , FX ) 

AO 

1 

C 


AO 

2 

C 

SUBROUTINE FD3 IS CALLED BY SUBROUTINE DERIV3. 

AO 

3 

C 


AO 

4 

C 

SUBROUTINE FD3 CALCULATES THE FIRST DERIVATI VE-FX-CORRESPONDING 

AO 

5 

C 

TO POINT X USING 3 POINT LAGRANGIAN DIFFERENTIATION FORMULA. 

AD 

6 

C 


AO 

7 

C 

ASSUMES XI .LE. X .LEo X3. 

AO 

8 

c 


AO 

9 


A 1=2.0* X-X2-X3 

AO 

10 


A2=2.0*X— XI— X3 

AO 

11 


A 3=2. 0*X— XI— X2 

AO 

12 


D1=(X1— X2)*(X1-X3) 

AO 

13 


D2 = (X2-XU*(X2-X3) 

AO 

14 


D3=( X3-X1)* ( X3-X2) 

AO 

15 


C1=A1/D1 

AO 

16 


C2=A2/D2 

AO 

17 


C3=A3/D3 

AO 

18 


F X=C1*FI+C2*F2*C3*F3 

AO 

19 


RETURN 

AO 

2D 


END 

AO 

21- 
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SUBROUTINE FD5 (X »X1 , X2 , X3, X4, X5, FI , F2, F3, F4, F5, FX ) 

SUBROUTINE F05 IS CALLED BY SUBROUTINES BLUNT1, BLUNT2, EDGE, 
NOZLE1, AND NOZLE2. 

SUBROUTINE FD5 CALCULATES THE FIRST DERI VATI VE-FX-CORRESPDNDING 
TO POINT X USING 5 POINT LAGRANGIAN DIFFERENTIATION FORMULA 

ASSUMES XI ,LE. X .LE* X5. 

Ai=<X-X4)*< X-X5>*I2.0*X-X2-X3)*<X-X2)*(X-X3)*(2.0*X-X4-X5» 
A2*(X-X4)*(X-X5M-(2.0*X-X1-X3 J+IX-Xl 1*{X-X3)*{ 2.04X-X4-X5) 
A3=(X-X4)*CX-X5)*(2.0*X-X1-X2M-CX-X1)*(X-X2)*I2.0*X-X4-X5) 
A4=IX-X3I*(X-X5>*{2.0*X-X1~X2 J+IX-Xl )*(X-X2 J*( 2.0*X-X3-X5J 
A5=(X-X3>*I X-X4)*<2.0*X-X1-X2M-U-XI)*(X-X2>*I2.0*X-X3-X4) 
01-=<X1— X2 }*{X1~X3 )*IX1-X4)*(XI-X5 ) 
D2={X2-X1)*{X2-X3I*<X2-X4I*IX2-X5> 
03=(X3-X1I*<X3-X2)*(X3-X4)*(X3-X5> 

D4=( X4-X1)*(X4-X2)*( X4— X3J* ( X4-X5) 
D5=(X5-X1)*<X5-X2)*(X5-X3)*<X5-X4> 

C1=AI/D1 
C 2= A2/D2 
C3=A3/D3 
C4=A4/D4 
C5=A5/D5 

F X = C 1 *F 1 +C2 *F2 +C3 *F 3+C4 *F4+C 5*F 5 

RETURN 

END 


AP 

1 

AP 

2 

AP 

3 

AP 

4 

AP 

5 

AP 

6 

AP 

7 

AP 

8 

AP 

-9 

AP 

10 

AP 

11 

AP 

12 

AP 

13 

AP 

14 

AP 

15 

AP 

16 

AP 

17 

AP 

18 

AP 

19 

AP 

20 

AP 

21 

AP 

22 

AP 

23 

AP 

24 

AP 

25 

AP 

26 

AP 

27 

AP 

28- 
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APPENDIX A 


Boundary Layer Edge Conditions for a Reacting Gas in Chemical 

Equilibrium 

The boundary -layer edge conditions are determined from 
the solution of the inviscid governing equations using the 
computer program developed by Lordi, Mates, and Moselle [1965]. 
Minor modifications have been made to this computer program 
to present the data in the form required by the boundary -layer 
program. These modifications and a listing of the modified 
subroutines are given at the end of this appendix. 

Boundary -layer flows in nozzles may be solved with 
either a specified pressure distribution or a specified 
area ratio distribution. In the latter case, it is assumed 
that the edge conditions correspond to a quasi-one-dimensional 
expansion of the gas. The solution for a blunt body requires 
that the pressure distribution along the surface be given. 

For either case, the expansion data are obtained for a quasi- 
one-dimensional flow through a nozzle of arbitrary shape 
and the necessary geometry is supplied by the boundary -layer 
program" it is not necessary to obtain new expansion data 
when the body geometry is changed if the reservoir or 
stagnation conditions are held constant. This feature is 
useful when parametric studies of different body shapes 
are being made for a fixed reservoir or stagnation condition. 

The edge conditions which must be specified by the 
solution of the inviscid equations of motion are area ratio, 
Mach number, velocity, pressure, and enthalpy. The correct 
geometry is obtained by interpolation with the area ratio 
as the independent variable for nozzles having a specified 
area ratio distribution (quasi-one-dimensional) . For blunt 
bodies or nozzles with the pressure distribution specified, 
interpolations are made with the pressure as the independent 
variable. 

Modifications have been made to the MAIN program, 
subroutines REED, and EQUIL in the computer program of 
Lordi, Mates and Moselle. Listings of subroutine EQUIL 
and the MAIN program with the modifications are included. 

In subroutine REED, a read statement was added for the 
molecular weight of the gas mixture at standard atmospheric 
pressure and temperature. (FORTRAN symbol -STDMLN) was added. 
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It is' assumed that a listing of this computer program 
and the report by Lordi, Mates and Moselle are available. 


The velocity, enthalpy, and pressure are^ converted, 
to -t-he form- required by "the boundary Tayer program as 
follows : 

U f = U (Ro * 778.158 * 1.8 X To' x 32,1759/M)^ 

PL = Lo &10 ( p x p °) 

HL = Log 1Q (H x To' x Ms/M) 

Fortran variables not included. in the Lordi, Mates and 
Moselle program are given below. 


MAIN Program 


AFNX1 

} 

Area Ratio at Throat 

AMACH1 

} 

Mach Number at Throat 

HOR 

= 

H'/RGAS, °k 

HORL 

= 

Log 10 (HORD 

PL 

= 

LogioCP) 

UUU 

i 

Velocity in ft/sec 


Subroutine EQUIL 


HOR 

= 

H'/RGAS, °k 

HORL 

= 

Log 10 CH°K) 

PL 

= 

Log 10 (P) 

R1 

> 

Ratio of Successive Temperature Steps 

UUU 

> 

Velocity, ft/sec 


List 

of Symbols for Appendix A 

H 

= 

H'M/RoTo ' 

H<*f* 

j 

Enthalpy, ft^/sec^ 

HL 

= 

Log 10 (H'/RGAS) 
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Molecular Weight at Reservoir Stagnation 
Conditions 

Molecular Weight at Standard Atmospheric 
Conditions . 

P/Po 

Pressure in Atmospheres 

Reservoir or Stagnation Pressure in 
Atmospheres 

Universal Gas Constant 

Gas constant at Standard Atmospheric 
Conditions, ft2/sec2 - °K 

Stagnation or Reservoir Temperatures, °K 

Dimensionless Velocity 

Velocity , ft/sec 
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CAL STREAMTUBE VERSIGN H 

MAIN PROGRAM FOR NOZZLE FLOW SOLUTION 00250 

IMPLICIT REAL*8(A-H,0-Z) 

COMMON A, AA<22,24), ACCH.I20), AFNTS, AFNX, ALP IJ (20 , 10) , AMACh, 

1 AR f ARBA, ARBB, ASU8(10>, ATP(5), 8(64,20), 8CHK64), BE(64), 

2BET120), BET A (64, 20 ) , BLBK (31 ), BSU8(31),' BZERO, C, CAT.(64>, 

3CAPX( 20) , CAPXTH ( 20) , CARB, CCPJ(20), CDIJ(20,10), CEACT(64), 
4CECHII(64)»CGI(20), CGMU(20), CH, CHA, CHI (64) , CHIK20), 

5C LN1 MC ( 64) , CLNPI (64) , CL NT, CM, CMA, CMWJ20I, CRA, CRP, CRRB,CRS, 

6CSTAi CT', CTAP, CTB, CTC, CTMAX, CTMXX, CTP, CTPL, CTT, CX, CXB.,. - 
7.CXMAX, DATEST-, OBTEST, CELT'I,' 0ELT2, '0ELT’3i DELTAX, DLnGA , DLOGR , 

80 T , ELJ( 10,20) , ELMENT(20) , ENT, ETA I (64 ) , ETAJ(20), FLUX, 

9GEL J (10,20), GJ A ( 20 ) , GJB(20), GJC(20), GTEST, HDELX , HP120) 

C 

COMMON PCT , PCTEST , PERTGJ(20), PGJ(20), FK64), PICHK64),. 

IPRES, PRESA, PRESS, PRE5TH , PRHO, QM120) , QQC64), RHAP, RHO, RHOB, 

2RHCBAR , RHCC, RHCP, RHPL, RHTH, ROBARA, ROBARP, SAJI 20), SCPG, 

3SDCHK64), SDELTX, SDT , SEN, SENT(20), SFDELX , SHJ(2C), SHJAI20), 

4SHPG, SK IL ( 20 ) , SC, SL, SL64, SM, SS(20), SU, SU2, SUMS', TB(3U), 

5TEMP1 , TEST, TESTS, TFA(20), TFB(20), TFC(20), TF0(2C), TFE(20), 

6TFK ( 20 ) , THEV(20) , TPRINT, TSTOP, TTEST , UP, XMJAT(2C), XNUK64), 

7XNU I J (64 ,20 ) , XNU I J P ( 64,20 ) , ZP, ZPA 
C 

COMMON IC, IGJ ( 20) , IGM(20), IM, I NEQ , INEOV, r IP, I ROE A R , IRUN, 

1ISC, ISCPI, I SMC, ISMCNR, ISR, ISS, ISSNR, ISSP1 , I SSP2, I SSP3 , I SSP4 

c 

COMMON ISWIA, ISW1B, ISW2A, ISW2B, ISH3A, ISW3B, ISW4A, ISW4B, 

1ISW5A, ISW5B, ISW6A, ISW6B, IZERO, ITB(5), IUPD, JJK, KHO, KKUR , 

2KUR ( 64,20 ) , LC, MI, NAFIT, NFIT , NIT, NNN, NNS, NQS, NOT, NTEST 
C 

COMMCN IK 
C 

DIMENSION AAA( 22, 24) , BTA<64,20), CAPQ(31>, CCH20), DGJ(20), 

IG J ( 20 ) , SBJ ( 20 ) , SDGJ ( 20 ) , SHJAP(20), THEVP(20) 

C 

DIMENSION IGJB( 30) G026u 

COMMGN/STDMLW/CMSTD 
C 

EQUIVALENCE ( AA ( 1),AAA( 1)), < BETA ( 1),BTA{ 1)1, 

L(BLBK(I),CAPQ(1) ), ( CAPXTH( 1 ) , CCI( 1) ) , (GJA( I) ,DGJ( 1 ) ) , ( CAPX < 1 ) , 

2 GJ ( 1 ) ) , (SAJ(1),SBJ(1)),(SS11),S0GJ(1)), (SHJA ( 1 ) , ShJ AP ( 1 ) ) , 

3(THEV( 1) ,THEVP(1) ) 

EXP (X )=DfcXP (X ) 

SQRT ( X) =0 SQRT( X ) 

ABS ( X ) =DABS ( X ) 

SIGN (XI ,X2)=DSIGN(X1,X2) 

CALL ERRSET<262, 256,-1, 1,0, 262) 

CALL ERRSET(207, 256,-1, 1,0,209) 

C 

DO 20 I =i , 8330 
20 ACOM ( I )=0 .0 
ZP=r> 

ZPA=0 


1 DO FORMAT ( 12H1 RESERVOIR- , I4//13H TEMPERATURE= , F S. 2 ,9H CENSITY = ,FI1. 8 00290 

1 ,10H PRESSURE 3 , F9.3/^10H ENThALPY=, F8.4, 9H ENTROPY 3 , F 9. 4 , 1 8H MULEC 00300 
2ULAR WEIGH T 3 ,F7.4//(1X,A6,1PE11,3I) 0031' 

1U1 FORMAT ( I6H1 FROZEN THROAT- , I4//13H TEMPE RATURE 3 , F9. 6 , 1 1H MASS FLOW 0032 i 
l=,F8.4,9H DENSITY =,F9,6»10H PRES$URE= , F9 .6 ) v "330 

1G2 FORMAT ( 9H1 THROAT-, I 4/1 3H TEMPERATURE 3 »F 9, 6 » 11H- MASS FLOW 3 , F8. 4 ,9H 00340 

1-^DENSITY=,F9.6,10H PRESSURE 3 , F9 .6/10 K ENTHALPY 3 , F8. 4, 10H VELOCITY 3 00350 
2 ,'l’PE 1 2. 4//( IX, A6, Ell. 3) ) L>0360 

103 FORMAT (38H DISCRIMINANT NEGATIVE IN MAIN PROGRAM) 00370 

104 FORMAT (39H1 STARTING VALUES FOR DOWNSTREAM RUN - ,14//) C03BU 

If 5 FORMAT ( 13H TEMPERATURE 3 ,F9. 6, 9H DENS I TY 3 F9. 6 , IOH PRESSURE 3 , F9. 6 ,/ 00390 

1/10H ENTHALPY 3 , F8. 4, IOH VELOC I TY 3 , 1PE12. 4 , 6H AREA 3 , E 1 1 . 3 ,3H X=,tll 00400 
2.3//( IX, A6, Ell. 3) ) 00410 

1U6 FORMAT ( 20HI DENSITY FI T-ALPHA 3 , IPE 15, 7 , 1CH CONSTANT 3 , El 5. 7 ) 00420 

1000 FORMAT (1HQ»9X»8HA/AST AR==F10 .5 , IX, 9HMACH N0. 3 F 10. 5, IX, 

♦17HVELQCI TY( FT/SEC )=F12, 5 »1X»14HL0G10( P/PSTD)*F10, 5,1X, 

*1 IHLOGIO ( H/R ) = FIO. 5 ) 

1 CALL REED 00430 

DO 2 J=1,ISS 00440 
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c 


c 


c 


c 


2 TGJBI J) = I,GJ ( J ) 

CALL IN IT 

WRITEI6, 100 l IRUN,CTAP,RHAP,PRESA,CHA,SEN,CMA,<HPU) ,GJA( I) , 1*1, 
* ISS I 

BEGIN PROGRAM MODIFICATIONS 
PL-DL0G10 ( PR ESA) 

HQR=CH*CTAP/CMA*CMSTO 
HGRL=DL0G10 (HOR) 

UUU=SU*DSQRTI 1546. D0*CTAP*1. 800*32. 17S9DC/CMA) 

WRITEI6, 1000) AFNX, AMACH »UUU»PL» HQRL 
WRI TE(20) AFNX, AMACH »UUU« PL »HGRL 

END PROGRAM MODIFICATIONS 
IFIISW6A-IZER0) 17, 120, 17 

120 I FI I SW1A-IZERQ) 121, 4, 121 

121 CALL FROZEN 

WRITE(6,101 I IRUN*CTMAX»SM» RHTH, PRESTH 
DO 3 J=1,ISS 

3 IGJ I J )= IGJB I J ) - 

4 CALL NRMAX 

WRITE (6, 102) IRUN.CTMAX, SM, RHTH, PRES, CH,SU, < HP (I) ,GJ II) , 1 = 1, ISS ) 
BEGIN PROGRAM MODIFICATIONS 
PL=0LCG10 I PRES*PRESA) 

HOR=CH*CTAP/CMA*CMSTD 
H0RL=DLOG10 ( HOR ) 

UUU=SU*DSQRT I 1546. D0*CTAP*1. 800*32. 17 59CC/CMA1 

AFN Xl=l, 0 

AMACHi=1.0 

WRITE (6, 1000) AFNX1, AMACH1»UUU,PL, HORL 
END PROGRAM MODIFICATIONS 
I F( ISW3A-1ZER0 ) 39, 6, 39 

39 DO 40 J=1 ,ISS 

40 IGJ I J )=IGJB( J ) 

CALL EQUIL 

I M=1 
J JK=0 

I SMCNR= I SMC 
ISSNR=ISS 
DO 5 J=1,ISS 

5 IGJ ( J )= IGJB( J ) 

6 IFI ISW2 A-IZERO) 160, 17, 160 

160 IF ( I UPD-IZERG) 10,161-, 10 

161 CT=CTMAX*(1.— DELT2) 

PRE S=PRE STH 

DO 7 1=1, ISS 

7 CAPX(I)=CAPXTHCI) 

CALL NEWRAP . 

AFNTS=SM/FLUX 

TEMP1=8SUB(2 )*BSUB( 2 )— 4.*BSUB(3 ) * I BSUB ( 1 l-AFNTS ) 

IFI TEMPI) 8,9,9 

8 WRITEI6,I03) 

CALL PDUMP 
STOP 

9 CX=-( BSUB! 2 )-SQRT (TEMPI) ) /( 2.*BSUBI 3) ) 

WRITE 16, 104) I RUN 

WRITE (6, 105) CT, RHO , PRES ,CH »SU, AFNTS ,CX,IHPII) ,GJM) ,1 = 1, ISS) 

GO TO 16 

10 DO 11 1=1, ISS 

11 CAPXI I)=GJA(I)*CMA 
PRES=1.0 

N=C 

SUM1=DL0G(RHTH) 

A=4.+8.*SUM1 


12 N=N+1 

I F ( N— 50 ) 13, 14, 14 

13 SUM2=A+2. 

SUM3=RHTH**A 

D=SUM3*SUM2-2. 

D1=SUM3* ( SUM2*SUM1+1 . ) 

ATEST=A . ■ fftfe 

A- A— D/Dl 

IFIABS ( D )—. 00001 ) 130,130,12 
130 IFIABS ( ATEST-AJ-.OOOOl) 14, 14, 12 




00450 

00460 

00470 


490 

005 10’ 
00520 
00530 
00540 
C0550 
00560 


00590 

00600 

00610 

00620 

00630 

00640 

00650 

00660 


00690 
00700 
00710 
00720 
00730 
00740 
C0750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
CO 840 
00850 
00860 
00870 

00890 
00900 
00910 
00920 
C0930 
00940 
00 950 
00960 
00970 
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14 C={RHTH**2)*(1.-RHTH**A) 

CT= 1 .O-DELT 1 

CALL NEWRAP 
AFNTS=SM/FLUX 

TEMPl=ASU8(2}*ASUB(2)-4.*ASUB(3>*(ASUBm-AFNTS) 

IF(TEMP1)8,15,15 

15 CX=-< ASUB(2)+$QRT(TEMP1>) /<2.*ASUB(3) ) 

WRITE 16* 106 )A,C 

I K = 0 

16 CALL NONEQ 
REWIND 9. 

DO BOO K=1,1K 
READ (9,111) IRUN.CT 
UL FORMAT I 16, F10. 6) 

WRITE (6,111) IRUN.CT 
-READ (9,112) ( ( B ( 1,J), J=l,4), l=l,ISR) 

112 FORMAT ( 1P12E10. 1 ) 

WRITE (6,112) ((B(I,J), J=l,4), 1=1, ISR) 

800 CONTINUE 

17 1F( ISW4A)1 ,18,1 

18 CALL EXIT 
STOP 

END 


01000 

01010 

01020 

01030 

01040 

01050 

01060 

01070 

01080 


C1090 

01100 

onio 


c 

SUBROUTINE REED 

IMPLICIT REAL*8 ( A-H, 0-Z ) 

COMMON A, AA(22 ,24) , ACGM(20), AFNTS , AFNX, ALPI J ( 20 , 10 ) , AMACH, 

1 AR, ARBA, ARBB, ASUB(IO), ATP15 ) , B(64,20), BCHI (64) , BE(64), 

2 BET (20 ) , BETA ( 64*20 ) , BLBK ( 31 }, BSUB(31), BZERQ, C, CAK64), 

3C APX{ 20 ) , CAPXTH(20), CARB, CCPJ<20), CDIJ(20,10), CEACT(64), 
4CECHII(64),CGI<20), CGMU(20), CH, CHA, CHI (64 ) , CHIK20), 
5CLMMC(64> , CLNPK64), CLNT , CM, CMA, CMW(20), CRA, CRP , CRRB,CRS, 
6CSTA, CT, CTAP, CTB, CTC, CTMAX, CTMXX, CTP, CTPL, CTT , CX, CXB, 
7CXMAX, DATEST, DBTEST , DELT1, DELT2, DELT3 , OELTAX, CLGGA, DLCGR, 
8DT, EL J ( 10 ,20 ) , ELMENT (20 ) , ENT, ETA I (64 ), ETAJ(20), FLUX, 

9GEL J ( 1U, 20 ) , GJA ( 20 ) , GJB(20), GJC(20), GTEST , HDELX , HP(2CI) 

C 

COMMON PCT , PCTEST , PERTGJ (20 ) , PGJ(20), FI(64), PJCHK64 I , 

1 PRES , PRESA, PRESB* PRESTH , PRHO, QM(20), 00(64), RHAP, RHO, RHOB, 
2RH0BAR, RHOC, RHOP, RHPL, RHTH, ROBARA, ROBARP, SAJ(20), SCPG, 
3S0CHK64), SDELTX, SOT, SEN, SENT(20), SFDELX, SHJ(2C), SFJA(20), 
4SHPG, SK IL ( 20 ) » SC, SL, SL64, SM, SS(20), SU, SU2, SUMG, TB(30), 
5TEKP1, TEST, TESTB, TFA(20), TFB(20), TFC(20), TFD(20), TFE(20), 
6TFK( 20) , THE V( 20 ) , TPRINT , TSTOP, TTEST, UP, XM JAT (20 ) , XNU I (64 ) » 
7XNU I J ( 64 ,20 ) , XNUI JP( 64,20 ) , ZP, ZPA 

C 

COMMON IC, IGJ( 20) , IGM(2C), IM, INEQ, INEOV, IP, IRCBAR, IRUN, 
1ISC, ISCP1, ISMC, ISMCNR, ISR, ISS, ISSNR, ISSPl.I SSP2 , I SSP3, ISSP4 
C 

COMMON ISW1A, ISW1B, ISW2A, ISW2B, ISW3A, ISW3B, ISW4A , ISW4B, 
1ISW5A, ISW5B, ISW6A, ISW6B, IZERO, ITB(5), IUPD, JJK, KHO, KKUR, 
2KUR (64,20) , LC, Ml, NAFIT, NFIT , NIT, NNN, NNS, NQS, NOT, NTEST 

'COMMON/STDHLW/CMSTD 

C 

DIMENSION AAA (22 ,24 ) , ETA(64,20), CAPQ(31), CCK20), DGJ(20), 

1GJ ( 20 ) , SBJ (20) , SDGJ(20), SHJAP(20I, THEVP(20I 

C 

EQUIVALENCE ( AA ( 1),AAA( 11), ( BET A ( 1),BTA( 1)), 

1<BLBK(1),CAPQ(1) ), (CAPXTH (1),CCI(1) ) , <GJA( 1 ) ,DGJ ( 1) ) , ( CAPX( 1 ) , 

2 GJ ( 1 ) ) , ( S AJ ( 1 ) , SBJ ( 1 ) |, ( SS( 1 ) , SDGJ (1)1, ( SHJA( 1) ,SHJAP( 1 ) ) , 

3 ( THE V( 1 ) ,THEVP( 1 ) ) 

C 

EXP ( X )=0£XP (X ) 

SORT{ X) =DSQRT< X) 

ABS( X)=DABS (X ) 
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c 


SIGN! XI , X2) =DSIGN ( XI » X2 ) 


1 FORMAT (16141 01140 

2 FORMAT ( 7F10.0 ) 01150 

3 FORMAT! A6, 2 F10.0 ) 01160 

4 F0RMAT!4E14.8) G1170 

5 F0RMAT(24F3.O) 01180 

6 FORMAT (3011 ) C1190 

7 F0RMAT15E14.8) 01200 

8 F0RMAT!A6,4E14.8, 12) 01-210 

9 F0RKAT!4!F3.0,E15.8) ) 01220 

10 F0RMAT!4E15.7/3E15. 7,9X,A6) 1230 

11 FORMAT ( 12A6) 01240 

12 F0RMAT(1H1,20A6///) ■ Cl 2 50 

READ1-5, 1 1 ISW1A, ISW2A,I-SI«3A,ISW4A ,ISW5A,ISh6A, 01260 

1 I5W18tISH2BfISW3BiISW48fISH5B»ISVi6B 01270 

REAO (5,11) (ACOM(-I) ,1=1 ,20) 01280 

READ ( 5* 1 ) IRUN,ISC,ISS,ISR,IC,NQS,IUPD,NFIT, 0-1290 

1 KHO»KKUR» NAFIT , INECV, IROBAR- C1300 

READ! 5,2) CTAP, PRES A »CTMXX,CXMAX» SL,8ZERC,TSTQP, 01310 

1 TPRINT,DELTAX,DELT2,DELT3,TTEST»GTEST 01320 

READ (5 ,2 ) 1CECH1I (I ), 1=1, 1SR) 01330 

READ ( 5,3) (ELMENTU dCAPQ(I) ,CMW( I) ,1=1, ISC) 01340 

READ (5,4) (CAI( I),ETAI(I ) ,CEACT ( I ),QQ(1) ,1=1, ISR) 0135D 

DO 13 1=1, ISS 01360 

13 READ (5,5) (ALPIJ(I»J) ,J=1,ISC) 01370 

DO 14 1=1, ISR 01380 

14 READ(5»5) ( XNUI JP( I ,J),J=i,ISS) 01390 

DO 15 1=1, ISR 01400 

16 REAO (5 , 5 ) (XNU1J(I,J) ,J=1» ISS) 01410 

IF(KKUR) 16,118,16 01420 

16 DO 18 1=1, ISR 01430 

IFIQQ(I) )17,18,17 01440 

17 READ!5*6) ( KUR{ I , J ) , J=1 , I SS ) 01450 

18 CONTINUE 01460 

118 IF (NAFIT) 19,20,19 01470 

19 REAO ( 5,7) (ASUS! I ), 1=1,10) 01480 

READ(5,7 ) (BSUa(I), 1=1,31) 01490 

RE AD (5, 7) ( ATP( I ) ,1=1 ,5 I 01500 

GO TO 21 01510 

20 READ 15,7) ( ASUB II) , 1 = 1 , 3 ) 01520 

READ (5,7) (BSU8(I) ,1=1,3) 01530 

21 IFINFIT ) 24, 22,24 0154'J 

22 DO 23 J=1,ISS 01550 

23 IGJ(J)=0 01560 

GO TO 25 01570 

24 RE AO (5,6) 11 GO { J ) , J=1 , ISS ) 01580 

25 DO 28 J=1,ISS 01590 

IF!IGJ(J))26,27,Z6 61600 

26 REA0(5,1 0) TFA(J) , TF8 ( J ) ,TFCIJ) ,TFD(J), 01610 

1 TFE(J),TFK(J),SHJAP( J) ,HP(J) 01620 

IF(CTMXX)27,28,27 

27 READ! 5,8) HP! J ) »ETA J ( J ) ,SB J ( J) ,THEVP ( J ) , SH JAP ( J ) , I GM ( J ) 01640 

K= I GM( J ) 01650 

READ (5 , 9 ) (GELJt I,J ) , EL J U , J ) , 1= 1,K ) 0166U 

28 CONTINUE 01670 

I Z ER0=0 01680 

WRITE{6,12 ) (AC0M!I),1=1,20) C1690 

REALM 5, 60C0) CMSTD 

6000 FORMAT I6F12. 6) 

WRl TE ( 6 , 6001 ) CMSTD 

6001 FORMAT! 1HQ, 6HCMSTD=F14. 6 ) 

CALL LIST C17O0 

RETURN Cl 710 

END 01720 
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SUBROUTINE EQUIL 08930 

IMPLICIT ' REAL* 8 ( A-H,0-Z) 

COMMON A, AA(22,24), AC0M(20), AFNTS, AFNX, ALPI J(20,101 , AMACH, 

1AR, ARBA, ARB8, ASUB(IO), ATP<5>, B(64,20>, BCHK64), 8E(£4>, 

2BETI20), BETA! 64, 20) , BL8K( 31 ) » B$UB<31), BZERO, C, CAI164), 

3CAPX (20 ) » CAPXTH(20), CARB, CCPJ(20), CDIJ(20,10), CEACT(64>, 
4CECHII(64),CGI(20>, CGMU(20), CH t CHA, CKK64), CHIK20), 

5CLN1MC( 64 1» CLNPK64), CLNT , CM, CMA, CMWI20I, CRA, CRP, CRRB,CRS, 

6CSTA, CT, CTAP, CTB, CTC, CTMAX, CTHXX, CTP, CTPL, CTT, CX, CXB, 

7CXMAX, OATEST, OBTEST, 0ELT1 , DELT2, DELT3 , DELTAX, CLOGA, OLOGR, 

8DT, ELJ< 10,20), ELMENTI 20) , ENT, ETAI L64)-». ETAJC20L,. F-LUX, 

- 9GE L J( 10V20T, G JA{ 20 j ,’ GJ B (20 ) , GJCC20), GTEST , HDELX, HP(20) 

C 

COMMON PCT , PCTEST , PERTGJI 20) , PGJI20), PI(64), PICHI{64>, 

1 PRES , PRESA, PRES B, PRESTH, PRHO, QM(20), QQ<64), RHAP , RHO, RHOB, 

2RH0BAR, RHOC, RHOP, RHPL, RHTH, ROBARA, ROBARP, SAJI20), SCPG, 

3SDCHI (64 ) * SDELTX, SOT, SEN, SENTI20), ShDELX, SHJI20), SH JA (20) , 

4SHPG , SKIL (20) , SC, SL, SL64, SM, SS(20), SU, SU2, SUMG, TB(30), 

5TEMP1, TEST, TESTB, TFA(20), TFBC20), TFC(20), TFD(20), TFE(20), 

6T FK( 20 ) , THEV (20 ) , TPRINT , TSTOP, TTEST, UP, XMJAT(20), XNUK64), 

7XNUI J( 64 ,20) , XNU I JP (64 ,20 ) , ZP, ZPA 

C 

COMMON IC, IGJI20), IGM( 20 ), IM, INEQ, INEQV, IP, IROBAR, IRUN, 

IT SC, ISCP1, I SMC , ISMCNR, ISR, ISS, ISSNR, ISSP1, ISSP2? ISSP3, ISSP4 
C 

•COMMON ISW1A, ISW1B, ISW2A, ISW2B, ISW3A, ISW3B, ISW4A , ISR4B, 

1ISK5A, ISW5B, ISH6A, ISW6B, IZERO, ITB<5), IUP0, JJK, KHO, KKUR, 

2KUR (64,20), LC, Ml, NAFIT, NFIT , NIT.NNN, NNS, NQS, NOT, NTEST 

COMMON/STOMLH/CMSTO 

C 

DIMENSION AAA( 22, 24) , BTA( 64, 20 > , C APQ( 31) , CCK20), DGJ(2C), 

1G J ( 20 ) , SBJ (20) , SDGJ (20 ) , SHJAP(20), THEVP(20) 

C 

EQUIVALENCE ( AA ( 1),AAA( 1)), (BETA! 1),BTA( 1)), 

l(BLBKd) ,CAPQ(1)),( CAPXTK (1 ) , CC I ( 1 ) ) , (GJA( 1 ) ,OGJ( 1) },(CAPX(1), 

2 GJ(l)), { SAJ ( 1 ) , SBJ ( 1 ) ) , ( SS( 1 ) , SDGJ { 1 ) ) , (SHJA(1 ) ,SHJAP (1 ) ) , 
3(THEV(1),THEVP(1) ) 

C 

SQRT( X) =DSQRT (X) 

ABS ( X )=DABS (X ) 

SIGN (XI , X2 ) =DS IGN ( XI , X2 ) 


100 FORMAT (21H1EQUILIBR IUM SOLUTION//) 08940 

101 F0RMAT(1P4E14.5,E16.7,2E14.5,ET6.7> 08950 

102 FORMAT ( 1P4E 14.5,E16.7,2E14.5) 08960 

1L-3 FORMAT (1P10E12.3) U8970 

104 FORMAT (1H ) 08980 

DO 1 J=l, ISS 08990 

1 GJ ( J )=GJA ( J ) C9000 

PPES=1.0 09010 

CT=1 .0 09020 

RHCBAR=ROEARA 09030 

0ELT1=0. 0025 

TSTOP=O.OU01 

RHCN1.0 C9049 

SU=0.0 09050 

AMACH=0.0 09 360 

AFNX=0. 0 C9070 

RH0B=1.0 G9080 

PRESB=l .0 09090 

R=l. 0 09100 

IP= 3 09110 

I F ( I SS-10 ) 106 , 106 , 105 
106 WR I TE ( 6 , 100 ) 

105 IP=IP+1 

2 IF(IR0BAR)3,4,3 C9140 

3 HRIT£(6,101)CT, PRES, RHD,SU, AMACH, SEN, AFNX, RHCBAR 0915O 

GO TO 5 C9160 

4 WRITE(6,102)CT, PRES, RHO,SU,AMACH,SEN, AFNX 09170 

5 DO 6 N=l, ISS, 10 09180 

I QR=N C9190 
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IQQ=MIN0(N+9,]SS) 

WRITE(6,103) IGJ(J),J=ICR,IQQ) 

6 CONTINUE 

C BEGIN PROGRAM MODIFICATIONS 

IF(AFNX. EQ.Q.Q) GO TO 1001 
PL=DL0G10(PRES*PRESA> 

HOR=CN*CTAP/CMA*CMSTD 

HOfiL=DLOGlOlHOR) 

UUU=SU*DSQRT( 1546.D0*CTAP*l.fiD0*32. 17590C/CHA ) 

WRITE 16, 1000 1 AFNX, AMACh»UUU»PL« HDRL 
WRITEI20I AFNX,AMACH,UUU,PL,HORL 

1000 FORMAT ( IHO, 9X , 8HA/ASTAR=F12.5» IX, 9HMACH NO.«F 10.5, IX, 
*17HVELOCITYJFT/SEC)=F12.5,1X,14HLOGIO< P/ PSTD )=F10. 5, IX, 
*11HL0G10{H/R)=F10.5) 

1001 CONTINUE 

C END PROGRAM MODIFICATIONS 

WRITE! 6, 104) 

I F ( KKK. NE.22 ) Rl=0.01 
KKK=22 

CT=CT-R1*DELT1 

R1=R1*1.05 

IF(Rl.GT.l.O) Rl-1.0 
I F ( CT-TSTOP )8, 60, 60 
60 CONTINUE 

CALL NEWRAP 

AMACH=SU*SQRT <RHO*ABS( DLOG) RHO/RHOB > /DLQGIPRE S/PRE SB ) ) /PRES) 
AFNX=SM/FLUX 
PRESB=PRES 
RHCB=RHO 
IF < IP-50161, 61, 7 
61 1 P=IP+3 

IF ( ISS-10 I 611 ,611 ,6 10 

610 IP=IP+1 

611 GO TO 2 

7 W RI T E < 6, 100 ) 

I P=3 

IF( ISS-10J72, 72,71 

71 IP=IP+1 

72 GO TO 2 
3 RETURN 

END 


09200 

09210 

09220 


09230 


U9270 

09230 

G9290 

09300 

09310 


C9360 

09370 


09400 

09410 
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APPENDIX 'B 


Thermodynamic and Transport Properties for a Reacting Gas 
Mixture in Chemical Equilibrium ' 

To solve the boundary' layer equations for a reacting 
gas mixture in chemical equilibrium, it is necessary to 
provide a suitable method for determining the thermodynamic 
and transport properties of the gas for a wide range of 
pressure and temperature. These data may be given in 
curve fit form or a table look-up procedure using an inter- 
polation polynomial may be used. 

In the present solution of the boundary -layer equations, 
the primary emphasis has been' to obtain solutions to pro- 
blems where the ratio of the wall enthalpy to the stagnation 
or reservoir enthalpy is small and for high Mach number flows 
In these cases, the coefficients of the polynomial curve fit 
data may be inaccurate for part of. the range in pressure 
and/or temperature (see Lewis and Burgess [1963]), Thus, 
a table look-up procedure is used in the solution of the 
boundary- layer equations. The tables of thermodynamic 
and transport properties have been generated using a 
modification of the Cornell Aeronautics Laboratory (CAL) 
computer program for arbitrary gas mixtures developed by 
Lordi, Mates, and Moselle [1965]. The table look-up 
procedure has an additional advantage in that the tables 
of properties are used directly without the • necessity of 
curve fitting the data. Thus, different gas mixtures may 
be considered with a minimum of difficulty. 

The modifications made to the CAL computer program 
are described below, and a listing of the modified 
subroutines are given at the end of the appendix. In 
the discussion which follows, it is assumed that the CAL 
program is available. 


Thermodynamic and Transport Properties 

The properties which must be specified are pressure, 
temperature, enthalpy, density, specific heat, viscosity, 
and Prandtl number. For a given pressure and temperature, 
the enthalpy, density and specific heat are determined 
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using' the reservoir calculation described in Section 2.1 
of Lordi, Mates and Moselle [1965], Subroutines have been 
added to compute viscosity, and to obtain the Prandtl 
number by interpolation. 

To conform with the boundary-layer program, each 
set of data is tabulated at a constant pressure with 
temperature decreasing, the dependent variables are, H, 
p, Uj CP, and PR. The data sets are generated with 
decreasing pressure. The specific heat, CP, is determined 
by numerical differentiation of H in each data set. To 
provide the necessary data for five-point interpolation 
in the boundary -layer program, at least two data sets -are 
required both above - and below the maximum and minimum 
pressures of the given problem, and similarly for the 
temperature in each data set. 

The viscosity of the gas, mixture is computed using 
Wilke’s semi -empirical formula 


ISS 

V = I 

i=l 


C 4 Pi/Mi 1 

T55 

y c . $ . . /m . 

L j£i 3W j 


(B-l) 


where 





M.^-% 


1 + ^ 
M. , 
3} 


1 + 


3J 


M.\k 




(B-2) 


The viscosity of the species, p., is approximated by 
curve fit data of the form 1 

c. (A. InT + B.) 

p . = e 1 T 1 1 gm/cm-sec (B-3) 

The curve fit constants are determined by the fitting the 
Pi data obtained using the method of Yun and Mason [1962], 
The constants used in the computer program were obtained 
from Blottner [1964] . 
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The Prandtl number for air and nitrogen have been 
obtained by interpolation of the data given by Hansen 
[1958] and Ahyte and Peng [1962].., res.pe.C-tiv.el-y.,. 


Description of Computer Program 

The computer program used to generate the tables of 
thermodynamic and transport properties of the gas mixture 
retains subroutines REED, LIST, INIT, INTA, THERM, MATIN, 
and SIMSOL of the CAL computer program. Listings of the 
modified or added subroutines are included at the end of 
this appendix. It is noted that the common block data in 
the modified program are not the same as that for the CAL 
program. However, their common block data may be used 
without change. A description of the Fortran variables 
used in the added subroutines which are not included in 
the Lordi, Mates and Moselle program are given below. 


MAIN Program 


Description of Variables 


AMU 

9 

2 

Viscosity, Ib-sec/ft 

APR 

) 

Prandtl Number (frozen) 

CJ 

? 

Mass Fraction of the jth Species 

CMLW 

9 

Molecular Weight of Gas Mixture 

CMSTD 

) 

Molecular Weight of Gas Mixture at 
Standard Atmospheric Pressure and 
Temperature 

COND 

9 

Thermal Conductivity (frozen) lb/sec-°R 

CP 

9 

Specific Heat of Gas Mixture at Standard 
Atmospheric Conditions, ft 2 /sec 2 -°R 

CTAPI 

9 

Dummy Variable for CTAP 

CTINIT 

9 

Maximum Temperature, °K 

CTMIN 

9 

Minimum Temperature, °K 

DELCT 

9 

Temperature Increment, Value is Negative 
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DELTPL 

GAMMA 

HOR 

HORL 

I 

IS 

J 

JP1 

K 

JCT 

JCTZ 

PL 

PR 

RGAS 

RHOLOC 

RHOLOS 

RHOL 

SPHTR 

SPHTRF 

SPHTOR 

TEMP 


Pressure Increment, Value is Negative 
Ratio of Specific Heats 
H'/RGAS, °K 
Log 10 (HOR) 

Array Index 
Array Index 
Array Index 

Number of Tables to be Generated 
Array Index 

Number of Temperature Steps in Each 
Table 

Dummy Variable 

Logio P , P in Atmospheres 

Array of Prandtl Numbers 

Gas Constant at Standard Atmospheric 
Pressure and Temperature, ft 2 /sec 2 -°K or 
ft 2 /sec2-°R 

Density, Slugs/ft 3 

Density, Amagats 

Log 10 p, p in Amagats 

C /R_ , °K 
P 0 

Array of Cp/R Q 

Specific Heat of Mixture C^/RGAS, °K 
Array of Temperature, °K 


Subroutine XMUPR 

The purpose of this subroutine is to compute the 
viscosity of the gas mixture using Wilke's semi -empirical 
equation. The frozen values of thermal conductivity and 
Prandtl number are also computed but are not used. 
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Usage: 


CALL 

XMUPR 

C-T, 

' PR, 

CP, R, CCPS.,. CGI-,- GJA, ISS , HP, CMA, YMU, 
CON) 


Where 



T 


y 

Temperature, °K 

CP 


- 

C /K 
P ° 

R 


= 

1.98726 gm-cal/gm-mole-°K or BTU/lb-mole-°R 

CCPJ 


y 

Specific Heat of jth Species 

CGI 


y 

Molecular Weight of ith Species 

GJA 


y 

Species Concentration moles/gm 

ISS 


y 

Number of Species in Mixture 

HP 


y 

Chemical Symbol for Species in Mixture 

CMA 


y 

Molecular Weight of Gas Mixture at. 
Given Pressure and Temperature 

XMU 


y 

2 

Viscosity, lb-sec/ft (returned) 

PR 


y 

Frozen Prandtl Number (returned) 

CON 


y 

Frozen Thermal Conductivity, lb/sec-°R 
(returned) 




Description of Variables 

A- 

1 


y 

Coefficient in Curve Fit Expression for 
Viscosity 

B. 

l. 


y 

Coefficient in Curve Fit Expression for 
Viscosity 

C i 


y 

Coefficient in Curve Fit Expression for 
Viscosity 

CAPK 


y 

Intermediate Variable in Calculation of 
Thermal Conductivity 

EMU 


y 

Species Viscosity 

FAC I 


y 

Dummy Variable 

FACZ 


y 

Dummy Variable 
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PHI 


Defined by Equation (B-2) 


Subroutine PRANDTL 

This subroutine interpolates in tables of Prand-tl 
numbers input to the program as functions of pressure 
and temperature.. Five point interpolation is used to 
determine the Prandtl number at the given pressure and 
temperature . 


Usage : 

CALL PRANDTL CPL, TEMP, PR, NTMP} 
Where 


PL 

- 

Log-^Q P, P in Atmospheres 

TEMP 

J 

• Array of Temperature Values 

PR 

9 

Array of Prandtl Number Values at Pres- 
sure P 

NTMP 

9 

Number of Values in Temperature Array 
Description of Variables 

IJK 

9 

Undefined for First Call of Subroutine, 
and is Used to Read Prandtl Number 
Tables 

J 

9 

Array Subscript 

K 

9 

Array Subscript 

NPL 

9 

Number of Tables to be Read 

NTEMP 

9 

Number of Temperature Values in Each 
Step 

PL1 

9 

Array of Pressures at which the Prandtl 
Numbers are Tabulated 

PRPLT 

9 

Interpolated Values of Prandtl Number 
at Pressure PL 

TI 

9 

Array of Temperature Values at Which 
Prandtl Number Values are Tabulated 
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Subroutine DERIV5 


This subroutine determines^ the first de.r-i.va.ti.ve- of- .a- 
functfon F with re'spect to the independent Variable X. 

The derivative of F is returned as FP. 


Usage : 

CALL DERIV5 (X, IE, F, FP) 

Where X and F are the ordinate arrays , IE the number 
of values in the arrays, and FP is the returned array. 

The description of subroutines INTERS and FD5 are 
given with the boundary layer program. 


Input Data Preparation 

The card input data given below is to follow (in the 
order listed) the data cards required by the computer 
program described in (2) . 


Card 1 

PLMAX 

DELTPL 

CTINT 

DELCT 

CTMIN 

RHOSTD 

CM STD 

JPL 


FORMAT (7F10 . 5 , 1 5) 

Maximum Value of Log-^g P , P in Atmospheres 
Increment in Log^g P, Value is Negative 
Maximum Temperature, °K 

Increment in Temperature, Value is Negative 

Minimum Value of Temperature, °K 

Density of Gas mixture at Standard Atmospheric 
Pressure, slugs/ft3 

Molecular Weight at Standard Atmospheric 
Pressure and Temperature 

Number of Tables to be Generated 
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Card 2 


FORMAT (7F10 .5,15) 


GAMMA- 

Ratio of Specific Heats at Standard Atmospheric 
Conditions 

Card 3 
A (J) 

B on 

Coefficients of Viscosity 
Curve Fits, One Card for 

FORMAT 

C 7 F 1 0 5,1 

C (J) 

Bach Species Considered 



Card 4 


FORMAT 

(515) 

NPL 

NTEMP 

Number of Tables to be Read 

Number of Temperature Values 
to be Read in Tl Array 



Card 5 
TL (K) 

Array of Temperatures, Input . 
in Increasing Increments. Use 
as many cards as necessary. 

FORMAT 

(8F10.5) 

Card 6 
PL1 

L°gi 0 P , P in Atmospheres 

FORMAT 

(8F10..5) 

Card 7 
PR1 

Array of Prandtl Numbers 

FORMAT 

(8F10.5) 


Corresponding to PL1 and 
the Temperatures Input in 
Array Tl. The number of 
cards is the same as card 
type 5 . 
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List of Symbols for Appendix B 


A. 

1 

9 

Coefficient in Viscosity Curve Fit 

B. 

1 

> 

Coefficient in Viscosity Curve Fit 

C i 

9 

Coefficient in Viscosity Curve Fit 

C i 

9 

Mass Fraction of the ith Specie 

CP 

= 

C /RGAS- ' 
P 

C P 

9 

Specific Heat 

H' 

■> 

Enthalpy, ft^/sec^ 

H 

9 

• H'/RGAS, °K 

H 

= 

Logio H 

M i 

9 

Molecular Weight of the ith Specie 

P 

9 

Pressure in Atmospheres 

PR 

9 

Prandtl Number 

RGAS 


Gas Constant 

P 

= 

Log 10 p’ 

P ' 

9 

Density in Amagats 


9 

Species Viscosity, gm/ (cm-sec) 

u 

9 

2 

Viscosity of Mixture, Ib-sec/ft 
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C EQUILIBRIUM THERMODYNAMIC AND TRANSPORT PROPERTIES 
IMPLICIT REAL*8(A-H,0-Z) 

COMMON A, AA(22»24), ACGMI20), AFNTS, AFNX, ALPI J ( 20 , 10 ) , AMACH. 

1AR , ARBA, ARBB* ASUBUO), ATP(5), B<64,20), BCHI(64), B6(64), 

2BET( 20 )» BETA (64, 20) , BLBKC3I), BSUB(31), B2ER0, C, CAK64J, 

3CAPX(20), CAPXTH (20) , CARS, CCPJI20), CDIJ(20,10), CEACT(64>, 
4CECHII(64)»CGI{20), CGMU(2G>, CH, CHA, CHI (64 ) , CHIK20), 

5CLN1MCI64), CLNP 1(64), CLNT, CM, CMA, CMW(20) , CRA, CRP, CRRB.CRS, 

6CSTA* CT, CTAP* CTB, CTC, CTMAX , CTMXX, CTP, CTPL, CTT • CX, CXBt 
7CXMAX, DATEST, DBTEST, DELT1, DELT2, DELT3 , DELTAX, CLCGA, DLOGR, 

8DT, ELJdO ,20 ) , ELMENT ( 20 ) , ENT, ETAIC64), ETAJt 20 ) , FLUX, 

9GELJU0,20), G JA ( 20 ) , GJBC20), GJCI20), GTES7 , HDELX , HPI20) 

COMMON PCI, PCTEST, PER7GJ120), PGJ120), PK64), PICHK64), 

1 PRES , PRESA, PRESS, PRESTH, PRHO, QM(20), CQ<64), RHAP, RHO, RHOB, 

2RH0BAR, RHOC, RHOP, RHPL, RHTH, ROBARA, ROBARP, SAJI20), SCPG, 

3SDCHK64 ) , SDELTX, SOT, SEN, S ENT { 20 ) » SHDELX, SHJ(20>, SHJA120), 

4SHPG, SRI L(20 ) , SC, SL, SL64, SM, $S(20), SU, SU2, SUMG, TBI30), 

5TEMP1, TEST, TESTS, TFAI20), TFBI20), TFCI20), TFDI20), TFEI20), 

6TFKI20), THEVC20), T PR I NT , TSTOP, TTEST, UP, XMJAT ( 20 ) , XNUI ( 64) , 

7XNU I J ( 64 ,20 ) , XNUIJP(64,20) , ZP, ZPA 

C 

C 

COMMON IC, IGJI20), 1GMI2C), IM, INEQ, INEGV, IP, IRQEAR, IRUN, 

1ISC, ISCP1, I SMC , ISMCNR, ISR, ISS, ISSNR, ISSP1 , I SSP2 , ISSP3, ISSP4 
C 

COMMON IKKK.NOUMMY 
COMMON DELT4 

COMMON ISW1A, ISW1B, ISH2A, ISW2B, ISH3A, ISW3B, ISW4A , ISW4B, 

1 I SW5 A , I SW5B, ISW6A, ISW6B, IZERO, ITBI5), IUPC, JJK, KHO, KKUR, 
2KUR(64,20), LC, Ml, NAFIT, NF IT , NIT, NNK, NNS, NQS, NCT, NTEST 

C 

DIMENSION AAA(22,24), BTA(64,20), CAPQI31 ), CCIC20), DC-JI20 ), 

1GJI20), SBJ ( 20 1 , SDGJI20), SHJAPI20), THFVPI20) 

C 

DIMENSION TEMP (100) ,H0RLI100), RHOL (100 ) , SPHTOR (100 ) , XMU ( ICG ) , 
*PRUOO),CMLW( 100 ) , ZCOMP( 100 ) ,CJ( 20) , IGJB (30) ,HOR(1CO) ,CONC (ICO), . 
*SPHTRF(100I 
C 

EQUIVALENCE ( AA ( 1),AAA( D), (BETA( 1),BTA( 1)), 

HBLBKd ) ,CAPQ(1)), (CAPXTH (1),CC 1(1)), (GJA (1 } ,DGJ{ 1 ) ) , (CAPX(l) , 

2 GJIlll, ( SAJ( 1) , SB J( 1 ) ) , ( SS(1 ) ,SDGJ(1 ) ), (SHJAll ) ,SHJAP(1 ) ), 
3(THEV(l),THEVPtl)) 

C 

ABS( X) -DABS( X) 

SQRT(X)=OSQRT(X) 

EXP(X)=DEXP(X) 

C 

101 FORMAT ( I2H0 RESERVOIR-, I4//I3H TEMPERATURE*, F9.2,9H DENS I TY=,Fll. 8 00290 

1 , IOH PRESSURE*, F9. 3//10H ENTHALPY*, F8. 4, 9H ENTROPY*, F9»4, lfiH MOLEC 00300 
2ULAR WEIGHT=^F7.4//(1X,A6, ' #11*31.) 00310 

CALL REED 

READ (5 ,100) PLMAX,DELTPL,CTINIT,DELCT,CTMIN, RHOSTD, CMSTD, JPL 
READI5, 100) GAMMA 

WRITE (6,200 )PLMAX,DELTPL,CTINIT,OELCT,CTMIN, RHOSTD, CMSTD, JPL 
200 F0RMAT(1H0,1X,6HPLHAX*F10.3,1X,7HDELTPL*F10.3,1X, 

17HCTINIT=F10.3,1X,6HOELCT*F10.3, 1X,GHCTMIN*F10*3, 
27HRHOSTD*F10.7,1X,6HCMSTO=F10.5,1X,4HJPL*I3) 

100 FORMAT ( 7F 10. 5,15) 

DO 10 J=1,ISS 
IGJB( J)*IGJ( J) 

10 CONTINUE 

RGAS*1. 98674*778. 158*32. 174/CMSTD 
CP=RG AS* (GAMMA/ (GAMMA-1 • ) ) 

WRITE( 6, 300 ) RGAS, CP, GAMMA 

300 FORMAT ( 1H0,5HRGAS*F10.5» IX, 3HCP*F1Q. 5, IX, 6HGAHMA*F10. 5) 

REWIND 20 
PL=PLMAX 
CTAP=CTINIT 
J'-l 

DO 30 K* 1, JPL 

u "Continue 

PRESA*10. 00** PL 




CALL INIT 

HOR (J)=CHA*CTAP/CMA*CMSTC 
RHOLOC=RHAP*2. 2050-3/ (3. 5310-5*32. 1759D0) 

RHOLOS-RHOLOC/RHOSTD 

TEMP ( J )=CTAP 

HORLI J)=DL0G10(H0R( J) ) 

RHOL ( J )=DLQG10{ RHOLOS) 

ZCOMPI J )=PRESA*2116.224D0/ (RHOLOC*TEHP( J )*RGAS )/1.8D0 
SUM=0.D0 
_ DO. 15 

SUM=SUM+CAPX < I J ) 

15 CONTINUE ' 

CAPX(2)=1.D0-SUM+CAPX(2) 

SUM=0. DO 

DO 40 1=1, ISS 

CJ ( I )=CAPX ( I )*CGI ( I J/CMA 

SUM=SUM+CJ ( I )*CCP J{ I) 

40 CONTINUE 

SPHTR=SUM 

CALL XMUPR(CTAP»SPHTR ,CRA,CCPJ,CG1 ,GJA, ISS, HP, CMA, AMU , APR, CONDI J ) 

*) 

C CONDF( J )=COND( J) 

SPHTRFI J»=SPHTR 
XMU ( J ) = AMU ' 

PR( J J =APR 
CMLHt J)=CMA 
CTAP 1=CT AP 

IF (CTAP1.LE. 600. DO I GO TO 20 
CTAP*CTAP1+0ELCT 
IF(CTAP.LT.CTMIN) GO TO 20 
J=J+1 
GO TO 11 
20 CONTINUE 

CTAP=CTAP1+DELCT 
JCT=J 
- JCT2=J 
I = J 

25 CONTINUE 

IFtCTAP.LT. CTMINI GO TO 2000 
1 = 1 + 1 
JCT2=I 

PRESA=10.DO**PL 
SPHTOR! I )=CP/RGAS 
SPHTRFI I )=SPHTOR( I ) 

HOR ( I )=SPHTOR( I ) *CT AP 

HORU I) =DL0G10( SPHTOR ( I ) *CT AP) 

RHOLOC=PRESA*2116.224DO/(RGAS *CTAP*1.8D0) 

RHOL 1 1 )=DLOG10 ( RHOLOC/ RHOST D J 
TEMPI I ) =CTAP 
ZCOMPI I )=1.D0 
CMLHl I )=CMSTD 

XMUI I ) =( 518. 6D0+198. 6D0)/ (CTAP*1„ 800+198. 6D0 ) * 

1 ( CTAP*1. 800/518. 6D0 )**1. 5D0*3. 719D-7 
CTAP1=CTAP 
CTAP=CTAP+DELCT 

IFICTAP.LT. 200. DO ) CTAP=CTAP1- 50. DO 
I F (CTAP. LT. 50. DO ) CTAP=CTAP1— 5. DO 
GO TO 25 
2000 CONTINUE 

CALL DERIV5 (TEMP, JCT ,HORL, SPHTOR ) 

DO 50 1=1, JCT 

SPHTOR( I )=SPHTOR( I)*HOR( I )/DL0G10(2. 71828 182845904500 ) 

50 CONTINUE 
JCT=JCT2 

CALL PRNDTL(PL,TEMP,PR, JCT ) 

WRI TE ( 6 , 150) PL, JCT 
WRITEI6* 152) 

WRIT.E.16,155) (TEMPI J),HCRL( J), RHOL ( J), XHU( J) ,SPHTOR( J ) ,PR( J) , 
*CMLW( J) ,ZCOMP( J) ,SPHTRF ( J) ,J=1,JCT) 

•' WRITE (20 1 PL, JCT 

WRITE (20 ) TEMP,HORL,RHOLiXMU, SPHTOR, PR 
PL=PL+DELTPL 
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o n 


CTAP=CTI NIT 

IP(DELTPL.EQ.O„DO> STOP 
J=1 

30 CONTINUE 

150 FORMAT ( 1H0, 8X»29HL0G10 PRESSURE IN ATMOSPHERES ,12X ,3HPL=1PD16. 8, 


152 

*5X,21HN0. TEMPERATURE 
FORMAT (1H0,/115H 

STEPS=I3) 

TEMP 

H/R 

RHQ 

XMU 

155 

* CP/R 

FQRMATdX, 1P9D13.6) 
STOP 
END 

PRL 

MOLW 

Z 

CP/RF) 


SUBROUTINE INIT 03350 

IMPLICIT REAL*8( A-H,0-Z) 

COMMON A, AA{22,24), ACGM(20)» AFNTS, AFNX, ALPI J (20 ,10 ) , AMACH, 

1AR, ARBA, ARAB, ASUB(IO), ATP(5), B(64,20), BCHI (64) « BE(64), 

26ET (20) * BETA (64 >20 ) , BLBKOl), BSUB<31), 8ZER0, C, CAK64), 

3CAPX( 20 1 1 CAPXTH( 20) * CARB, 'CCPJ( 20) , CDIJ (20 ,10) , CEACT (64) , 

4CECHI 1 (64 )> CGI ( 20 ) , CGMU(20), CH, CHA, CHK64), CHIK20), 

5CLN1MC< 64) > CLNPI ( 64 ) y CLNT, CMy CMAt CMW(ZO), CRA, CRPy CRRByCRSy 
6CSTA, CT, CTAPy CTB, CTCy CTMAX* CTMXX, CTP, CTPL, CTT, CXy CXB, 

7CXMAX, DATESTt DBTESTy CELT1, DELT2. DELT3y OELTAXt DLOGA, DLOGR, 

8DT y EL J( 10 >201 t ELMENT( 20) > ENT > ETAI(64)> ETAJ120)> FLUX, 

9GELJ( 10,20 ) > GJAI20), GJB(20l» GJCI20), GTEST, HDELX, HP(20> 

COMMON PCT > PCTEST, PERTGJ(20I, PGJ<20), PI (64), PICHI(t4)> 

1PRES, PRESA, PRESS, PRESTH, PRHO, QM(20), CQ(64)> RHAP, RHG, RHOB, 

2RH0BAR, RHOC, RHOP, RHPL, RHTH, ROBARA, ROBARP, SAJ(20), SCPG, 

3S0CHI ( 64) , SOELTX, SDT, SEN, SENT(20), SFDELX, SHJ(2G), SHJA(20), 

4SHPG, SK IL ( 20 ) , SC, SL, SL64, SM, SS(20) , SU, SU2, SUMG, TB(30), 

5TEHP1 , TEST, TESTB, TFA(20), TFB(20), TFC(20), TFD(20), TFE(20), 

6TFK( 20 ) , THE V( 20 1 , TPRINT, TSTOP, TTEST, UP, XMJAT(20), XNU 1(64), 

7XNU I J (64,20), XNUI J P (64,20), ZP, ZPA 


C 

C 

C 

c 


COMMON IC, IGJ ( 20 ) , IGM(20)» IM, INEQ, 1NEQV , IP, IROBAR, IRUN, 
1ISC, ISCP1, ISMC, ISMCNR, ISR, 1SS, ISSNR, ISSPl,ISSP2,ISSP3,ISSP4 

COMMON IKKK, NDUMMY 
COMMON 0ELT4 

COMMON ISW1A, I SW1B , ISW2A, ISW2B, ISW3A, ISW3B, ISH4A, ISW4B, 
1ISW5A, 1SW5B, ISW6A, ISH6B, IZERO, ITB(5), IUPD, JJK, KHO, KKUR , 
2KUR { 64 ,20 ) » LC, Ml, NAF IT, NFIT, NIT, NNN, _NNS, NQS, NOT, NTEST 

DIMENSION AAA ( 22, 24) , BTA(64,20), CAPQ(31), CCK20), DGJ(20>, 
1GJI20), SBJ (20 ) , SDGJ (20 ) , SHJAP(20), THEVP(20) 

EQUIVALENCE ( AA ( 1),AAA( 1)), ( BETA( 1),BTA( II), 

1 ( BLBKt 1 ) ,CAPQ(1 ) ) , (CAPXTH (1 ) , CCI ( 1 ) ) , { GJA( 1 ) , DGJ ( 1) ),(CAPX(1), 

2 GJ(l)), ( SAJ ( 1) , SBJ (1)),(SS(1)« SDGJ ( 1 ) ) , (SHJA(l) »SHJAP(l) ), 

3 (THEV ( 1 ) »THEVP(1 ) ) 

DIMENSION TFBH 20) ,TFC1(20 ) ,TFD1( 20 ) , TFE1 ( 20 ) , EL JH 10,20) 
DIMENSION THEVP1 (20 ) , SB J 1( 20 ) , SHJAP 1 ( 20) 

ABS( X)=DABS(X) 

SQRT ( X)=DSQRT ( X) 

EXP(X)=DEXP(X ) 

ALOG( X)=DLOG(X) 

IFC I JK*EQo34) GO TO 50 
CTMXX1=CTMXX 
TST0P1=TST0P 
Da. 500 K=1,ISS 
TFB1 (K)=TFB(K) 

TFC1(K)=TFC(K) 

TF01 (K )=TFD(K ) 

TFE1 (K)=TFE(K) 
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SHJAP1 ( K )*5HJAP (K ) 
THEVP1 IKJ-THEVP(K) 
SBJ1 ( K)=SBJ(K) 

500 CONTINUE 

DO 501 1=1, ISS 
K=IGM( I ) 

DO 501 L=1,K 

501 ELJ1(L,I)=ELJ(L,I) 
I JK=34 

50 . .CONT-INUE - 

C 


CTMXX=CTMXX1/CTAP 0336 

TSTOP=TSTQPi/CTAP 0337 

IP(TST0P-.01)8,9,9 

8 T STOP=« 0 1 

9 ARBA=5.0 

ARBB=0.0 03400 

JJK=0 03473 

CT=1.0 03460 

I KKK=0» 0 

I M= 1 03500 

CRA=1. 98647 03510 

CRP=CRA*CTAP 03520 

CTPL=ALOG(CTAP) 03530 

ISMC=ISS-ISC 03540 

IF(NFIT) 1,3,1 03550 

1 T1=CTAP 03560 

T2=T1*T1 0357.0 

T3=T1*T2 03580 

T4=T1*T3 03590 

DO 2 1=1, ISS 03600 

TFB( I )=TFB1(I)*TI 0361 

TFC( I )=TFC1 t I)*T2 0362 

TFD(1)=TFD1( I)*T3 0363 

TF.E(I)=TFEltI)*T4 0364 

2 CONTINUE 03650 

3 IF(KHG)4,6,4 03660 

4 DO 5 1=1, ISS 03670 

SAJ( I )=SBJ1 ( I J + { 1.5+ETAJt I ) )*CTPL 0368 

THEV( II = THEVPim/CTAP 0369 

K= IGM( I ) 03700 

DO 5 L=1,K 03710 

5 ELJ(L,I)=ELJ1(L,I)/CRP 0372 

6 DO 7 1=1 ,I$S 03730 

7 SHJA(IJ=SHJAPim/CRP 0374 

I SMCNR= ISMC 03750 

I SSNR=ISS 03760 

CALL INTA 03770 

RETURN 0378H 

END 03790 


SUBROUTINE INTA 03810 

IMPLICIT R£AL*8(A-H,0-Z) 

COMMON A, AAI22 ,24) » ACCMI20), AFNTS, APNX, ALP I J C 20 , 10 ) , AMACF, 

1AR, ARBA, ARSB, ASUB(IO), ATP15I, B(64,20), BCHII64), BE(64>, 

2BETI20), BETA(64,20 J , BLBKI3H, 8SUB(31I, BZERO, C, CAII64), 

3CAPXI20), CAPXTHI20), CARB, CCPJI20), CDIJ(20,1G), CEACTI64I, 

4CECH lit 64 ) , CGI ( 20 ) , CGHU(20», CH, CHA, CHK64), CHIM20), 

5CLN1MC C 641 , CLNPI (64) , CLNT, CM, CMA, CMW(20), CRA, CRP, CRRB,CRS, 

6CSTA, CT, CTAP, CTB, CTC, CTMAX, CTMXX, CTP, CTPL, CTT , CX, CXB, 

7CXMAX , DATEST, OBTEST, CELT1, DELT2, DELT3, DELTAX, OLOGA, DLOGR, 

8DT , ELJ( 10,20) , ELMENTI20) , ENT, ETAIC64), ETAJ(20), FLUX, 

9GEL J (10,20), GJA( 20 ), GJB(20), GJC120), GTEST » HDELX, HP(20) 
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c 


c 


c 


c 


c 


c 


COMMON PCT, PCTEST, PERTGJI20I, PGJ(20), PI (64), PICHI (64 ) » 

1 PRES * PR ESA, PRES 8 » PRESTH, PRHO, QM(20>, QQ(64I» RHAP, RHO, RHOB, 
2RHOBAR. RHOCt RHOP, RHPL, RHTH, RQBARA, ROBARP, SAJ(ZO), SCPG, 
3SDCHK64I, SDELTXt SDT. SEN, SENT(20>, SHDELX, SHJI20), SHJA(20>, 
4SHPG, SKIU2QJ, SC, SL, SL64, $H, SS(20), SU, SU2, SUMG, TB(30), 
5TEMP1, TEST, TESTS, TFA(20), TFB(20), TFC(20>, TF0(2O), TFE(20), 

6T FK( 20 1, THEV(20I, TPRINT, TSTOP, TTEST, UP, XMJAT(20) , XNUI < 64) , 
7XNUI J ( 64 ,201 , XNUI JP<64,20 ) , ZP, ZPA 

COMMON IC, IGJ(20), IGM(20», IM, INEQ, INEQV, IP, IROBAR, IRUN, 
1ISC, ISCP1, I SMC , ISMCNR, ISR, ISS, ISSNR, ISS PI, ISSP2, ISSP3, ISSP4 

COMMON IKKK.NDUMMY 
COMMON DELT4 

COMMON ISW1A, ISW1B, ISW2A, I SW2B, ISH3A, ISH38, ISK4A, ISW4B , 

1 I S W5 A , ISW5B, ISM6A, 1SW6B, IZERO, ITB(5), IUPO, JJK, KHO, KKUR, 
2KUR ( 64,20), , LC, Ml, NAFIT, NFIT, NIT, NNN* NNS , NQS, NCT, NTEST 

DIMENSION AAA(22,24I, BTA(64,20), CAPCK31), CCI < 20 ) « DGJ(2Q), 
1GJ(20) , SB J( 20) , SDGJ120), SHJAP(20) , THEVPC20 ) 

EQUIVALENCE ( AA< 1),AAA( III, ( BETA ( 1),BTA( 1)1, 

l(BLBKU') ,CAPQ( 1) } * (CAPXTHd > ,CCI ( 1) ) , (GJ A (1 ) ,DGJ ( 1 ) ) , (CAPX( 1 ) , 

2 GJ(in» (SAjm,S8J(in,(SS(l),SDGJ(ll), (SHJAd) ,SHJAP(in, 
3(THEV(1) ,THEVP(1) ) 


ABS (X l-OABS (X ) 

SQRT(X1=DSQRT(X) 

EXP(X)=DEXP(X) 

ALOG(X)=DLOG(X] 

DO 1 1=1, ISC 
DQ 1 J=1,ISC 

1 BTA(I ,J)=ALPIJ(I,J) 

CALL MATIN (BTA,ISC,64l 
DO 3. 1*1 , ISMC 

L=I + I SC 
DO 3 J*1,ISC 
CDIJl I, J i=0 «0 
DO 2 K=1 , I SC‘ 

2 CDIJ( I, J)=CDIJ< I, J»+8TA(K,J)*ALPI J(L,K) 

3 CONTINUE 

DO 5 1*1, ISMC 
BET ( I J=-1.0 
DO 4 K=1 , ISC 

4 8ET( n=BET{I)+CDI J1I ,K) 

5 CONTINUE 
SUM=0« 0 

DO 7 1=1, ISC 
QM( I )=0®0 
DO 6 K=1 , I SC 

6 QMm=QM{n + BTA(K,I)*CAPQ(K> 
SUM=SUM+GM(I) 

7 -CONTINUE 

DO 8 1*1, ISC 
QM(I)=QM(II/SUM 
CCIt 1 1=0*0 
DO 8 J=i,ISC 

8 cci m=ccim+ALPiJ( i»jj*cmw(J) 

IF( I C— I ZERO >80,81,80 

80 CAPX<1)=.001 
GO TO 82 

81 CAPX( 1)=QH( 1 ) 

82 CONTINUE 
DO 9 1=2, ISC 
CAPX(I)=QM(I) 

CGMU ( I )= ALOGICAPX ( I ) » 

9 CGI(I)=CCim 
CGMU ( 1 >=ALOG( CAPX ( 1 ) > 

CGI (1 )=CCI( l l 
DO 11 1*1, ISMC 
SUM=0«0 



03820 

03830 

03840 

03850 

03860 

03870 

03880 

03890 

03900 

03910 

03920 

03930 

03940 

03950 

03960 

03970 

03980 

. 03990 

- 04000 
04010 
04020 
04030 
04040 
04050 
04060 
04070 
04080 
04090 


04120 

04130 

04140 

C4150 

04160 

04170 

04180 

04190 
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DO 10 K=1,ISC 

04200 

10 

SUM=SUM+CDIJ( I ,K J *CGI( K } 

04210 


IL=I+I SC 

04220 


CGII IL)»SUM 

04230 

11 

CONTINUE ' 

04240 


ZPA=ALOG( PRESA) 

04250 


CLGT=ALOG(CT) 

05030 


CTP=CT*CTAP 

05040 


CLNT=ALQG(CTPI 

-050 50 


DO. .70- J=1,-ISS 

05060 

56 

XMJAT l J ) =TFA (J )* ( !•— CLNT > -TFtU J )-CT*(TFBU )+CT*(TFC< J) /2.+ 

05110 

XCT*(TFD< JI/3.+CT*TFE{J)/4. > 1 )+SHJA(J)/CT 

05120 


SH J { J )=SH JA ( J KCT*<TFAIJ>+CT*(TFB( J )+CT* [ TFC U > +CT* { TFD ( J ) + 

051 30 

XCT*TPE(J))n> 

05140 


CCPJ( J)=TFAUH-CT*(2.0*TF8C J )+CT*( 3.0*TFC I J )+CT* (4.0*TFD ( J I+CT* 

05150 


X(5.0*TFE(JJ)) 1) 

05160 

172 

SENT! J»=SHJ{ JJ/CT-XMJATCJ) 

05540 

70 

CONTINUE 

05550 


DO 13 I =1 , I SMC 

04270 


IL=I+ISC 

04280 


CHIim=-XHJAT( IL J+ZPA*8ET ( I ) 

04290 


DO 12 J=1,ISC 

04300 

12 

CHIim=CHII< D + XMJATC J)*CDIJC I ,J» 

04310 

13 

CONTINUE 

04320 


DO 15 1=1, ISMC 

04330 


SKILUIaCHIim 

04340 


DO 14 J=1,ISC 

04350 

14 

SKIL(I)=SKIL(I)+CDIJ(I »J)*CGMU( J) 

04360 


Lal+ISC 

04370 


CG«U(L)=SKILU) 

04380 


sKiLm=EXPcsKimn 

04390 

15 

CAPX (L)=SKIL ( I ) 

04400 


M1=I SC+1 

04410 


N=0 

04420 

16 

N=N+i 

04430 


DO 18 J=1,ISC 

04440 


AA ( J »M1 )=QM( J J-CAPX ( J J 

04450 


DO 17 1=1, ISMC 

04460 

17 

AA( J,M1)=-(CDI J(I'J)-QMJ)*BETUn*SKIL( I)+AA(J,M 1 » 

04470 

18 

CONTINUE 

04480 


DO 23 J=1,ISC 

C4490 


DO 23 K=1,ISC 

04500 


I F ( J-K ) 20 ,19,20 

04510 

19 

A A ( J, K) =CAPX{ J) 

04520 


GO TO 21 

04530 

20 

AA( J,K)=0.0 

■04540 

21 

DO 22 1*1,1 SMC 

04550 

22 

AA(J,K) = AA( J,K) + (CDIJU,KI*(CDIJI I , J )-QM< J }*BET{ I >)*SKI L( I ) ) 

04560 

23 

CONTINUE 

04570 


CALL S I M SDL ( A A , I SC , 22 ) 

04580 


DO 26 K=l, ISC 

04590 


ZA=1*+AA (K,H1 ) 

04600 


IF(ZA)24, 24,25 

04610 

24 

CAPX(K)=CAPXIK)/2.11 

04620 


CGHU(K)=ALOG(CAPX(K>) 

04630 


GO TO 26 

04640 

25 

CAPX ( K )=CAPX ( K) *Z A 

C4650 


CGMU(K) =ALOG( CAPX (K) ) 

04660 

26 

CONTINUE 

04670 


DO 28 1*1,1 SMC 

04680 


SKIL{I)=CHIim 

04690 


DO 27 L=1,ISC 

04700 

27 

SK1L(I )=SKIL(I I+CDIJI I »L)*CGNUILJ 

04710 


J= I+ISC 

04720 


CGPUI J >«SKIL< 1 1 

04730 


SKI L ( I)=EXPISKIL{ I ) } 

04740 


CAPX(J)=5KIL(I) 

04750 

28 

CONTINUE 

04760 


DO 29 K=1 , I SC 

IF(A8S(AACK,M1I l-TE$T)29,29,280 

04770 

280 

IF ( N-NTEST ) 16 ,16,32 


29 

CONTINUE 

04800 
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CHA=0.0 

04810 

SEN=— ZPA 

04820 

CM=0.0 

04830 

DO 30 1=1, ISS 

C4840 

SEN=SEN+CAPX(I)*( SENT ( I ) -CGMU ( I ) ) 

04850 

CHA=CHA+CAPX(I)*SHJ( I) 

04860 

CM=CM+CAPX( I)*CGI ( I) 

04870 

CMA=CM 

04880 

CRRB=SEN/CMA 

C4890 

SEN=CRRB*CRA 

C4900 

CH=CHA 

04910 

DO 31 1=1, ISS 

04920 

GJAU )=CAPX(I)/CMA 

C4930 

R0BARP=PRESA*CMA/(CTAP*41.3C558*CRA) 

04940 

RHAP=R03ARP/ ( 1 . +RQBARP*8Z ERO ) 

04950 

ROBARA=ROBARP/RHAP 

04960 

CHA=CHA+( ROBARP /RHAP-1. ) 

04970 

RETURN 

04980 

WRITE! 6,33) 

04981 

FORMAT ( 35H TOO MANY NEWTON-RAPHSON ITERATIONS) 

04982 

STOP 

04984 

END 

04990 


100 
L 10 
111 
ns 


u« 


20 


30 

c 

c 


SUBROUTINE XMUPR( T,CP,R,CCPJ,CGI ,GJA,ISS,HP,CMA,XMU,PR,CGN) 
IMPLICIT R£AL*8(A-H,0-Z> 

DIMENSION A (20) , B (20 ) , C ( 20 ) , EMU( 20 > , CCP J ( 1 ) , CG I ( 1 ) , GJ A ( 1 ) , HP ( 1 ) 

I F ( UK.EQ.552) GO TO 1 

READ (5, 100) (ACI),B!I>,CU),I=1,ISS) 

WRI TE( 6t 110 ) 

WRITE ( 6, 111 ) 

WRITE (6,115) (HP(I),AU),B(I),C(1)t 1=1, ISS) 

FORMAT ( 3F20. 10) 

F0RMAT(1H0,13X,29HVISC0SITY CURVE FIT CONSTANTS ) 

FORMAT (LHO,5X,lOHSPEC I ESI I),8X,4HA(I) , 14X,4HB( I ) , 15X , 4MC( I ) ) 
FORMAT! 1H0, 4X,A8, 1P3D20.6) 

IJK=552 
1 TL=DLGG( T) 

XMU=0* DO 
CGN=0. DO 
DO 10 1=2, ISS 

EMU ( I ) = DfcXP ( C ! I ) )*T**(A{ I )*TL+B( I ) ) 

EMU(I)=EMU( I )*5.6D-3*12.C0/32.174D0 

CONTINUE 

DO 30 1=2, ISS 

CAPK=EMU(I)*(CCPJ (I )+1.25DD)/CGI( I) *R*778. l58D0*32. 17 400 
FAC1=0. DO 
DO 20 J=2, ISS 

PHI= ( l.DO+l EMU( I >/EMU(JW**0.5D0*(CGl!J)/CGI( I) )**G.25D0 )**2/ 
*(8.D0*( l.DO+CGH I )/CGI( J)))**G.5D0 
FAC1=FAC1+GJA(J)*PH1 
CONTINUE 

FAC2=GJA (IJ/FAC1 
XMU=XKU+EMU(I >*FAC2 
C0N=C0N+CAPK.*FAC2 
CONTINUE 

PR=CP*XMU/C0N*R*778.158D0*32.174D0/CMA 
UNITS OF VISCOSITY (X MU) LB.-SEC./FT.**2 
CONDUCTIVITY! CON) LB./ (SEC-DEG. RANKINE ) 

RETURN 
END 
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SUBROUTINE PRNDTL(PL,TEKP,PR,NTHP) 

IMPLICIT REAL*8{A-H,0-Z> 

DIMENSION TEMPO. ],PRUJ,PL1( 11) ,T1< 50) ,PR1 { 11 ,50) »PRPLT l 50 ) 

I P ( I JKo EQ*3 ) GO TO 40 
IJK=3 

REA0(5» 5) NPL.NTEMP 
READI5.10) (TI(K) ,K=1,NTEMP) 

DO 30 J= 1»NPL 
READ(5, 10 ) PL1 < J ) 

READ) 5,10) ( PRI ( J , K ) » K=1 , NT E MP ) 

30 CONTINUE 

40 CONTINUE 

J=0 

50 J*j+l 

IF(PL.LT.PLKJ) ) GO TO 50 
I F C J ,LT * 3) J=3 
' IF) J.GT. (NPL-2 ) ) J=NPL-2 
DO 60 K=1,NTEMP 

CALL INTERS (PL, PLll J-2) ,PL1( J- 1 I ,PL1( J) , PLl t J+l ) , PL1 (J+2) , 

1 PRI { J-2,K) ,PRi< J-1,KI,PR1(J,K),PR1(J+1,K ),PR1) J+2,K),PRPLT(K) ) 
60 CONTINUE 

DO 80 K=l, NTMP 
J=0 

70 J = J+1 

I F (TEMP (K).GT.Tl(J) ) GO TO 70 
IFIJ.LT.3) J=3 

I F ( J «GT .(NTEMP— 2) ) J=NTEMP-2 

CALL I NTER5 (TEMP { K) ,T1 (J-2 ),Tl(J-l)»TltJ),TKJ+l),Tl(J+2)» 
1PRPLTI J-2) » PRPLT) J-l ) , PRPLT (J),PRPLT( J+l ) , PRPLT) J+2 ) ,PR (K) ) 

80 CONTINUE 

RETURN 

5 FORMAT ( 515 ) 

10 F0PMATI8F10.6) 

END 


C 

SUBROUTINE INT ER5 I X,X1» X2, X3, X4, X5, F 1, F2, F3, F4 , F 5, F > 
IMPLICIT REAL*8< A-H,0-Z) 

C X1.LE.XLE.X5 

Al = ( X— X2 ) * (X— X3 )* (X— X4 > * (X— X5 ) 

A2=C X— XI )★( X— X3 ) * ( X— X4>* ( X— X5 1 
A3= ( X— XI )*{ X— X2 ) * ( X— X4) * { X— X5 ) 

A4= ( X— XI )*(X-X2)*(X-X3)*(X-X5) 

A5= ( X— XI ) *( X— X2 ) * ( X— X3 ) * ( X— X4 ) 

D1 = ( XI— X2 )* (XI— X3 ) * (XI— X4 )*(X1 — X5 ) 

D2=( X2-X1)*) X2-X3)*( X2— X4)*) X2-X5 ) 

D3=(X3-X1)*(X3— X2 )* (X3-X4 )* (X3-X5 ) 
D4=(X4-X1)*(X4-X2)*(X4-X3)*(X4-X5) 

D5=( X5-X1 )* (X5-X2 )* (X5-X3 ) J MX5-X4 ) 

C 1=A 1/D 1 
C2=A2/D2 
C3=A3/D3 
C4=A4/D4 
C5=A5/D5 

F=C1*F1+C2*F2+C3*F3+C4*F4+C5*F5 
RETURN ’ 

END 
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SUBROUTINE FD5< X, XI ,X2,XB , X4 ,X5 ,Fl , F2, F3 ,F4, F5 ,FX ) 

IMPLICIT R£AL*8( A-HtO-Z) 

Al=(X-X4)* (X-X5 )* (2« D04X-X2-X3 1+IX-X2 ) *(X— X3 ) *( 2«DO*X-X4-X5 ) 
A2=( X— X4)*I X-X5)*(2.00*X-X1-X3)+(X-X1)*(X-X3)*{2.D0*X-X4-X5> 
A3 = C X— X4 )* ( X— X5 l * (2« DO*X— X1-X2 ) +( X— XI i*( X-X2 )*( 2.DO*X-X4-X5> 
A4=( X— X3)*( X-X5) 2. DO*X— X1-X2 ) +{ X-Xl )*{X-X2) * 12« D0*X-X3-X5> 
A5=(X-X3)*(X-X4I*(2.D0*X-X1-X2 » + <X-Xl )*(X-X2)=M2.D0*X-X3-X4) 
01={X1-X2)*<X1-X3)*(X1-X4)*<X1-X5) 

02= { X2-X1 )* CX2-X3 (X2-X4 )*< X2-X5 i 
03=1 X3-X1)*< X3-X2 >* ( X3— X4J*< X3-X5 J 
D4={X4-X1»*IX4“X2)MX4-X3)*(X4~X5» 

D 5= < X5-X1 ) * < X5-X2 ) * < X5-X3 ) * ( X5-X4 ) 

C I=A1/D1 
C2=A2/D2 
C3=A3/D3 
C4=A4/D4 
C5= A5/D5 

FX=C1*F1+C2*F2+C3*F3 +C4*F4+C5*F5 

RETURN 

END 
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